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Turn your Apple into the world's 
most versatile personal computer. 



The SoftCard™ Solution. SoftCard 
turns your Apple into two computers. 
A Z-80 and a 6502. By adding a Z-80 
microprocessor and CP/M to your 
Apple, SoftCard turns your Apple into 
a CP/M based machine. That means 
you can access the single largest body 
of microcomputer software in exist- 
ence. Two computers in one. And, the 
advantages of both. 

Plug and go. The SoftCard system 
starts with a Z-80 based circuit card. 
Just plug it into any slot (except 0) of 
your Apple. No modifications required. 
SoftCard supports most of your Apple 
peripherals, and, in 6502-mode, your 
Apple is still your Apple 

CP/M for your Apple. You get CP/M 
on disk with the SoftCard package. It's 
a powerful and simple-to-use operating 
system. It supports more software 
than any other microcomputer operat- 
ing system. And that's the key to the 
versatility of the SoftCard/Apple. 



BASIC included. A powerful tool, 
BASIC-80 is included in the SoftCard 
package. Running under CP/M, ANSI 
Standard BASIC-80 is the most 
powerful microcomputer BASIC 
available. It includes extensive disk I/O 
statements, error trapping, integer 
variables, 16-digit precision, exten- 
sive EDIT commands and string func- 
tions, high and low-res Apple graphics, 
PRINT USING, CHAIN and COM- 
MON, plus many additional com- 
mands. And, it's a BASIC you can 
compile with Microsoft's BASIC 
Compiler. 

More languages. With SoftCard and 
CP/M, you can add Microsoft's ANSI 
Standard COBOL, and FORTRAN, or 



Basic Compiler and Assembly Lan- 
guage Development System. All, more 
powerful tools for your Apple. 
Seeing is believing. See the SoftCard 
in operation at your Microsoft or Apple 
dealer. We think you'll agree that the 
SoftCard turns your Apple into the 
world's most versatile personal 
computer. 

Complete information? It's at your 
dealer's now. Or, we'll send it to you 
and include a dealer list. Write us. Call 
us. 



SoftCard is a trademark of Microsoft. Apple II and 
Apple II Plus are registered trademarks of Apple 
Computer Z-80 is a registered trademark of Zilog, 
Inc. CP/M is a registered trademark of Digital 
Research, Inc. 
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CONSUMERS PRODUCTS 



Microsoft Consumer Products. 400 108th Ave. N.E.. 
Bellevue, WA 98004. (206) 454-1315 






o pMNBOW 

WIR. ■*** presents our valuable free 

catalog (over 100 pages). He PROMPTS you 
to peek at the latest collection of 
software and hardware 
products for your apple ii™ 
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A STELLAR TREK 

the definitive Hi-Res 

color version of the classic 

startrek game. Three 

different Klingon opponents. 

Many command prerogatives 

from use of weapons to 

repair of damages. Needs 

48K Applesoft ROM. 
Disk... $24.95 



VERSAWRITER II 

A drawing tablet, 

simply plugs into your 

game I/O port. Trace, draw, 

design, or color any type of 

graphic. Adds words to 

pictures. Creates schematics. 

Computes Distance/Area of any 

figure. New - fill any area 

on the screen in seconds with 

over 100 different and 

distinct colors. Needs 32K 

Applesoft ROM and disk 

drive. A bargain at. 

$249.95 



BOWLING DATA 
SYSTEM 

This data mangement 

program provides accurate 

record keeping and report 

generation for bowling leagues 

of up to 40 teams with 

6 bowlers per team. 

Needs 80-column printer, 

32K Applesoft ROM. 

Disk . . . $79.95 



SUPER SOUND 

Musical rhythms, 
gunshots, sirens, laser blasts, 
explosions . . . add these and 

many more exciting 

sounds to your Apple, use 

them in your programs, 

or create your own 

SUPERSOUNDS. Needs 

16K Applesoft. 
Have a blast for only 

$12.95... Tape 
$16.95... Disk 



ADDS2.00U.S. S10.00 FOREIGN FOR SHIPPING 
CALIFORNIA RESIDENTS ADD 6% SALES TAX 



open Tues.- sun. 



Don't see what you want 
here, then write or call 
today for your free 
catalog. We're saving 
one just for you. 

Visa/Mastercharge welcome. 
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GARDEN PLAZA SHOPPING CENTER 
9719 RESEDA BOULEVARD DEPT. 1MI 
NORTHRIDCE. CALIFORNIA 91324 
PHONE (213) 349-0300 



No. 37 -June 1981 



MICRO - The 6502/6809 Journal 






- ■ 
■ 




■m 



m 



T*- : 



W$k 






& 



i 






-¥^wfi 



^ 



• -. . 



•**•'■' 



vffmt. 



jK5-*> 









MICRO - The 6502/6809 Journal 



'A 



No. 37 -June 1981 



NO. 37 



JUNE 1981 



STAFF 

Editor/Publisher 
ROBERT M. TRIPP 

Associate Publisher 
RICHARD RETTIG 

Associate Editor 
MARY ANN CURTIS 

Special Projects Editor 
MARJORIE MORSE 

Art Director 
GARY W. FISH 

Production Assistant 
LINDA GOULD 

Typesetting 

EMMALYN H. BENTLEY 

Advertising Manager 
CATHI BLAND 

Circulation Manager 
CAROL A. STARK 

Dealer Orders 
LINDA HENSDILL 

MICRO Specialists 
APPLE: FORD CAVALLARI 
PET: LOREN WRIGHT 
OSI: PAULGEFFEN 

Comptroller 
DONNA M. TRIPP 

Bookkeeper 
KAY COLLINS 



DEPARTMENTS 

5 Editorial 

6 Letterbox 
16 Club Circuit 

25 New Publications 

95 Challenges 
102 6502 Resource Update 
105 Software Catalog 

107 Hardware Catalog 

108 6502 Bibliography 
111 Advertisers' Index 



/AJCftO 

THE 6502/6809 JOURNAL 

ARTICLES 

q It's Time to Stop Dreaming Robert m. Tripp 

** An introduction to the new 6809 

Programmable Character Generator 

1 1 for the CBM 2022 Printer Roger c. cntes 

Design special characters on screen and store in "dictionary" 

H 7 Musical Duets On the Apple II . Rick Brown 

■ ' Add harmony to your Apple's music 

07 A C1 P Dump Utility Francois Faguy 

£• ' A debugging tool for machine language and BASIC programs 

oo Machine Language to DATA Statement Conversion. . . LesCain 

^^ Easy and accurate way to put m.l. routines in a BASIC program 

oc Telephone Directory/Dialer for the AIM Rodney a. Kreuter 

^^ Turn your AIM into a telephone operator 

AJZ Macros for Micros John Figueras 

^^ An introduction to the MACRO assembler 

cc Improved KIM Communication Capabilities Ralph Tenny 

*•''-' Add new I/O capabilites to your KIM 

y-i Amper Search for the Apple Alan G. mil 

' ' Find character strings in BASIC arrays 

yn Memory Expansion for the Superboard Fred Boness 

' ^ Use the OSI 527 board for low-cost memory expansion 

o-i Horizontal Screen Scrolling on the CBM/PET John e. Girard 

^ ' Simple modification means increase in resolution 

oo Integer Flash for the Apple Richard c. wie, Jr. 

^^ How and why you can get flashing characters 

qq Polled Keyboard for C1 P/Superboard Michael J. Alport 

^^ Get both upper and lower case characters on your OSI 

qy AIM 65 RS-232 Interface James Guilbeau 

" ' Easy installation with electrical information 

qq Real Time Clock for Superboard James Mason 

^** Maintain and display real time in a background mode. 
APPLE BONUS 

aq Create a Data Disk for DOS 3.2 and 3.2.1 Glenn ft sogge 

^■^ Save space by eliminating DOS 

co Apple Color Filter Stephen ft Berggren 

^^ Filter out any color from Apple's Hi-Res screen 

cq Serial Line Editor for the Apple wesHuntress 

*-'*' Add features like insertion and deletion to your Apple 



No.37-June19'81 



MICRO - The 6502/6809 Journal 



ARE YOU DEVELOPING 
SHIFT KEY SCHIZOPHRENIA' 




Cure it with the lower case system from 



The Keyoard +Plus from Lazer Microsystems turns 
your Apple's shift key into a . , . shift keyl 

The Keyboard + Plus transforms your Apple's 
upper case only keyboard into a typewriter style 
keyboard capable of entering all 128 ASCII 
characters into your DOS, Pascal, and CP/H 
applications programs. The use of the shift key is 
automatic with most programs. You do not have to 
write complicated "driver programs" or fuss with 
obscure "BIOS catches" in order to fully utilize 
this board. _.For those situations where upper case 
only input is desired, the Keyboard +Plus supports 
a caps lock mode that returns the Apple keyboard 
to it's former state. 



Best of all, the keyboard + Plus features a 
typeahead buffer that gives you the ability to 
continue typing even though the computer is busy 
performing other tasks such as accessing the disk. 

The keyboard +Plus is the second component of 
Lazer Microsystems' lower case system. When teamed 
with the Lazer Microsystems' highly praised Lower 
Case +Plus, the lower case system turns your Apple 
into a sophisticated, user oriented, problem 
solving machine. 

See the Lazer Microsystems' lower case system 
at your local Apple dealer. If he is all out, you 
can order direct from us. 



P.O.Box 55518 
Riverside, Calif. 92517 
1714) 682-5268 

* Keyboard +PIus $119.95 

* Lower Case +Plus $69.95 

* Calif, residents add 6% tax. 

* Outside U.S.A. add S15.00 for 
Shipping & extra handling 

* Allow 2 weeks extra for checks 
to clear, (personal & business) 

* HC/VISA accepted. Include card 
number, exp date, and signature 



Lower Case +Plus, Keyboard +Plus and +Plus are all trademarks of Lazer Microsystems Inc. 
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A Marriage Made in Arizona 

This cover depicts the joining of the 
6502 and the 6800. The offspring, the 
6809, combines the second accumulator, 
the 16-bit index register and the 16-bit 
stack of the 6800 with the second index 
register and improved addressing modes 
of the 6502. It then adds its own unique 
new capabilities, including an addi- 
tional 16-bit stack pointer, a multiply 
instruction, a number of 16-bit opera- 
tions, a fantastic Load Effective 
Address instruction, and many other 
improvements which make it superior 
to either of its parents. Hopefully, the 
generation gap is minimal and can be 
overcome. It will take willingness to 
invest a little time in learning how the 
new generation "thinks" and in get- 
ting familiar with its "slang." 
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Editorial 



MICRO to Cover the 6809 

The first four volumes of MICRO were 
devoted strictly to covering the 6502 
microprocessor, and microcomputers 
based upon the 6502. Starting with this 
issue, which is the beginning of volume 
5, MICRO will expand its range to 
include the Motorola 6809 micro- 
processor and microcomputers based 
upon it. The reason for this expanded 
coverage is simple. While the 6502 is a 
very good microprocessor and will con- 
tinue to be a major force in the micro 
world for some time to come, it does 
have certain limitations, and over a 
period of time will become less and less 
competitive. For years we have hoped 
that MOS Technology, Synertek or 
Rockwell International, the three 
manufacturers of the 6502, would pro- 
duce an improved 6502. At this time it 
seems unlikely that this will happen. 
None of the three have announced any 
new 8-bit upgrade of the 6502, and to 
do so at this late date would probably 
be a mistake. It takes a great deal of 
time and effort to produce a new 
microprocessor, and even more time to 
generate the most basic support re- 
quired: editors, assemblers, language 
compilers and interpreters, business 
packages and so on. MICRO feels that 
it is simply too late for a new 
6502-based product. So, what is the 
alternative? Do MICRO and its readers 
sit helplessly, watching the rest of the 
world move on to better micros? We 
think not. There is a very viable alter- 
native — the 6809. 

This microprocessor is very closely 
related to the 6502. Both are direct 
descendents of the 6800. They have a 
very similar basic architecture, com- 
patible instructions, almost identical 
address, data and control signals, and 
much more. In fact, if someone had 
designed a "better 6502," it would 
probably have come out looking very 
much like the 6809. The first of a series 
of articles written to introduce the 
MICRO readership to the 6809 appears 
in this issue. Subsequent articles will 
go into greater detail about this device. 

The 6809 is not ' 'brand new. ' ' It has 
been around for a year or two and does 
have a reasonable amount of support. It 



is very quickly finding its way into the 
6502 world. Synertek Systems has an- 
nounced an update kit that converts a 
SYM-1 to run with the 6809. The kit, 
includes a 6809 version of the SYM 
monitor in ROM as well as the 6809 
and supporting circuitry. Stellation II 
has announced an add-on for the Apple 
which permits the Apple to run with 
both the 6502 and the 6809. Com- 
modore has just announced a new pro- 
duct, "Micro-Mainframe", which is a 
6809-based system with extensive soft- 
ware packages including interpreters 
for BASIC, Pascal, FORTRAN and APL; 
an editor; operating system,- and an 
assembly language development 
system. The Computerist Inc. has an- 
nounced a system which may use the 
6502, 6809, or both. 

We expect that this is just the start 
of a whole new generation of micro- 
computers, based on the 6809, but 
related to the current 6502 system. 
MICRO readers should keep abreast of 
these developments and should become 
familiar with the 6809. MICRO will do 
its part by presenting introductory 
articles about the 6809 and by keeping 
you informed on all related develop- 
ments. If you are working on a 
6809-based system already, we are 
interested in reviewing articles about 
your system. 

A Quick Reference 

I told you things were happening 
fast in the 6809 world, fust today, as 
this issue goes to the printer, I received 
a new book: 6809 Microcomputer Pro- 
gramming &> Interfacing With Experi- 
ments, by Andrew C. Staugaard, Jr. It is 
published by Howard W. Sams & Co., 
Inc. and lists at $13.95. I have not had 
time to give it more than a quick "once- 
over", but it looks very informative. 

The Perfect MICRO 

Since MICRO has grown so much in 
physical size over the past year, and 
since we expect more growth in the 
coming year, especially with the Bonus 
Sections, we have had to go to a dif- 
ferent binding technique: Perfect 
Bound. This should provide a better 
product with less chance of covers tear- 
ing off. The three-hole punch will be 
maintained. 
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Letterbox 



The following lettezs are in 
response to the March editorial (34:5). 

Dear Editor: 

Your March editorial concerning 
" copyright/ copywrong" was an artic- 
ulate plea for honesty and fairness in 
the use and abuse of "protected" 
material. While I personally agree with 
nearly everything the editorial stated, I 
emphatically do not agree with the con- 
clusion you arrived at and I whole- 
heartedly disagree with the position 
you have taken. 

I am appalled by the assumption 
you make that anyone who has a pro- 
gram that can copy a protected disk, 
tape, (whatever], will rush out and run 
off numerous copies for his friends and 
relatives (thereby reducing the poten- 
tial market for the protected material] . 
Where do you get the moxy to demean 
the large majority of your readers by 
suggesting they would act in such a 
manner? That theft exists I am willing 
to admit. Like you I condemn it 
unequivocally! It does and has forced 
vendors to increase the price to cover 
"copy wrong" losses. Your statement 
that theft "may" increase prices is 
generous to a fault. Those hidden costs 
(including the added cost in program- 
ming time and design effort to "pro- 
tect" the program] are already included 
in the price. Valid users are already pay- 
ing for the thieves' practice and for the 
disregard by vendors and editors who 
who protect themselves at the expense 
of the utility of the program(s). 

I suggest the only real threat to the 
growth of the software market is the 
usability and convenience withheld 
from the end user. Programs that ignore 
the honest needs of the end user ought 
to face competition from a product that 
will provide that service to the user. To 
restrain that sort of competition is the 
worst disservice a magazine and its 
editor can do to its readership, its 
advertisers and the marketplace in 
general. 



Dear Editor: 

I am a computer dealer, and as such 
a software salesman. My own personal 
computer is an Apple n. Believe me, if I 
had had to buy every piece of software I 
have for the Apple, I would very likely 
never have become a dealer. I wasn't 
born with l's and O's for brain cells as 
so many computerists I know! My 
background is electronics. To "get up 
to speed' ' in the world of computers, I 
have worked my tail off through trial 
and error, reading what I was able to 
digest on the subject, but most of all 
running programs other people had 
written and observing what did and did 
not work. I freely admit there are many 
copyrighted programs in my library 
which I obtained through software 
swaps and from friends. If I were using 
any of these for commercial gain or was 
reselling them through any means, I 
should be locked up. The fact is that I, 
and every other computer acquaintance 
I have, uses whatever kind of quality 
programs available to learn more about 
how to write programs. Often as not, 
what is learned is how not to do 
something. There are some unbeliev- 
ably atrocious programs out there 
which are advertised in your magazine 
and every other computer magazine. 
Why don't all these self-righteous peo- 
ple who had such a damned fit about 
your running the ad, get equally worked 
up about "programmers" asking and 
getting money for sheer junk? 

There are some very good programs 
available for the Apple and, fortunate- 
ly, they seem to be increasing in 
number. Trouble is, the advertise- 
ments look just the same whether the 
programs are any good or not. Since it is 
almost never possible to try a program 
before stocking it or buying it for per- 
sonal use, I for one, will never buy a 
program which cannot be copied either 
with normal means or, at least, with a 
bit copier. I think anyone who spends 
good money for a piece of software 
should have the right to modify it, 
customize it, and put it on any number 
of disks he wishes. I want programmers 
to make money. I also want to own 
what I pay money for. 

Thank you for running the ad and 
thank you for putting out one of the 
best computer magazines available 
today. 



MICRO 

IS THE 

APPLE 

SOURCE 



Coming in August! 

What's Where In the Apple 
An Atlas to the Apple Computer 
by William F. Luebbert, 
Here's a 192-page update of 
the original, highly popular, 
8-page article published by 
MICRO two years ago (15:36, 
August 1979). Prof. Luebbert 
has written the definitive 
guidebook for programmers to 
the hardware and firmware of 
the Apple II, with full details 
on over 2,000 memory 
locations. 
$19.95 

Coming in October! 

MICRO on the Apple 
Volume 2 

Edited by Ford Cavallari 
A successor to the fast-selling 
first volume of our new series. 
Volume 2 contains over 30 
updated Apple articles and 
listings and comes with over 
30 tested, ready-to-use 
programs — all on diskette. 
Book and diskette $24.95 

Already Here! 

MICRO on the Apple 
Volume 1 

Edited by Ford Cavallari 
If you don't already own this 
book — and its 38 programs 
on diskette — turn to the 
inside back cover of this 
magazine and read about why 
and how to become the owner! 
Book and diskette $24.95 
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It's Time to Stop Dreaming 



Since there is apparently not 
going to be an enhanced version 
of the 6502, it is time to stop 
dreaming about it. The 6809 is 
closely related to the 6502 and 
has many features which make 
it worth considering as an 
improved micro. 



Robert M. Tripp 
Editor/Publisher 
MICRO 



This is the first part of a MICRO 
series on the 6809 microprocessor. Part 
I covers an overview. Here we '11 focus 
on the "new" chip's characteristics 
and merits. Future articles will discuss 
the chip in greater detail, including 
how to convert 6502-based hardware 
and software to 6809 systems. 

A good programmer is never totally 
satisfied with his. program. He always 
wonders if there are more improve- 
ments that could be made. Therefore, it 
is not surprising that ever since the first 
successful microprocessor was intro- 
duced, the 8080, computerists have 
been seeking improved devices. The 
Motorola 6800 was one direction of im- 
provement, followed by its fairly direct 
descendent, the MOS Technology 
6502. Even though MICRO was started 
to help promote the 6502 at a time 
when it was being virtually ignored by 
the microcomputer industry, we have 
always thought about the next genera- 
tion, an improved 6502. Articles and 
letters in issues 23, 24, 26 and 34 of 
MICRO, plus numerous other material 
which never got into print, indicate 
that many of our readers are actively in- 
terested in the "dream machine," an 
improved microprocessor based on the 
6502. 

The time for dreaming has ended. 
There is now a microprocessor in the 
6502 tradition with many of the im- 
provements requested in the articles, 



and in our own considerations. It is not 
being made by MOS Technology, 
Synertek or Rockwell International, 
the three manufacturers of the 6502. 
None of these companies has announced 
any advance development based on the 
6502. However, Motorola, the inventor 
and primary manufacturer of the 6800, 
has produced a microprocessor which 
can be considered the 6502 dream 
machine. The 6809 is based conceptual- 
ly on the 6800 8-bit microprocessor. 
But then, so was the 6502. Since 6502 
manufacturers do not seem interested 
in producing an improved version of 
the 6502, we suggest that the 6809 be 
seriously considered as the eventual 
successor to the 6502. This does not 
mean the 6502 is in any danger of 
disappearing overnight. It is a firmly 
established product with a lot of sup- 
port and is actively being used by 
thousands of computerists. It will be 
around for quite a while. But, in this 
business, change and improvement are 
the standard, not the exception. 

Why should we consider the 6809? 
Because it is very similar to the 6502 in 
its architecture and in many of its prin- 
ciples of operation. It is as much an ex- 
tension of the 6502 as of the 6800, so 
let's examine its main features. 

Architecture 

The 6809' s architecture is very 
similar to the 6502' s. It has a 16-bit 
address space (64K bytes) and uses an 
8-bit data bus. Its timing and control 
signals are almost identical to those of 
the 6502, so that most expansion 
boards will be compatible between the 
6502 and the 6809 with little or no 
modification. Figure 1 — the registers 
of the 6502 and 6809 — shows the 
similarity between the two chips and 
some of the improvements in the 6809. 
The 6502 has one 8-bit accumulator (A) 
and the 6809 has two [A and B). The 
6502 has two 8-bit index registers (X 
and Y); the 6809 has two 16-bit 
registers (also X and Y). The 6502 has a 
single stack located - in page one, the 



6809 has two stacks. One stack, like 
the 6502, services hardware require- 
ments (interrupts, JSRs). A second 
stack is not affected by any hardware 
conditions. Each stack has a 16-bit 
register so that it may be located 
anywhere in memory, and is not 
limited to a single page in length. 

Several of the 6809' s logical im- 
provements include: 

1. 16-bit X and Y index registers (8-bit 
on 6502) permitting the various 
indexing operations to operate 
anywhere in memory over the full 
16-bit addressing range. 

2. 16-bit stack register [9-bit on 6502] 
permitting the stack to be anywhere 
in memory and to be any size. The 
6502 stack can only be 256 bytes 
maximum and must be on page one. 

3. A second 16-bit stack is available for 
the user and is not affected by hard- 
ware operations such as interrupts 
and subroutine calls. The 6502 does 
not have a second stack. 

The 6502 has a single 8-bit ac- 
cumulator. The 6809 has two 8-bit 
accumulators which may be used as a 
single 16-bit accumulator for particular 
16-bit operations. These operations in- 
clude add, subtract, compare, load, 
store, transfer between registers and ex- 
change between registers. This 16-bit 
capability makes the 6809 extremely 
powerful without adding 16-bit data 
bus hardware overhead. 



The 6502 has a page zero addressing 
mode which permits fast addressing 
with one byte of address for data on the 
zero page. The 6809 has the same type 
of fast addressing but permits any page 
of memory to be the target page (direct 
page). A direct page register contains 
the address of the page to be accessed as 
the direct page. Any page can be made 
to act like the 6502 page zero, effective- 
ly providing 256 "page zeros." 
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Instruction Set Improvements 

With a few minor exceptions, the 
6809 has all of the instructions of the 
6502. It has a number of new instruc- 
tions and is more consistent and uniform 
in its instruction/addressing structure. 
A number of instructions have been 
added to the accumulator operations 
for both A and B accumulators: 

1. INC/DEC — increment or decre- 
ment either accumulator. 

2. One's Complement (COM) and 
Two's Complement (NEG). 

3. Multiply A times B with the result 
in A and B. This is an 8-bit unsigned 
multiply with a 16-bit result. 

4. Add and Subtract without carry or 
borrow, as well as the normal add 
and subtract with carry or borrow. 

5. Exchange (EXGJ or Transfer (TFR) 
between any 8-bit registers. 

6. Clear either accumulator. 

The 16-bit accumulator operations 
are all new, and work on the combined 
A and B accumulators in what is ad- 
dressed as the D register. The opera- 
tions include: 

1. Add and Subtract 16-bit. 

2. Compare to memory. 

3. Load and Store 16-bits from or to 
memory. 

4. Transfer or Exchange between any 
16-bit registers: X, Y, S, U or PC. 

5 . Push and Pull from either the S or U 
stacks. 

The operations available to the six 
16-bit registers offer great potential in 
developing more efficient programs. 
These operations include: 

1 . Compare X, Y, S or U with memory. 

2. Exchange or Transfer any 16-bit 
register with any other 16-bit 
register. 

3. Load or Store any 16-bit register 
except PC. 

4. Push and Pull any 16-bit register to 
either stack. 

5. And a very useful new instruction 
which loads the effective address of 
an operation into the X, Y, S or U 
register. 



(This new function opens up a vast 
number of possibilities for position- 
independent code and other advanced 
techniques.) 

All of the branches provided by the 
6502 are included in the 6809, as well 
as signed and unsigned branches, a 
branch to subroutine and a branch 
always. These branches support 
position -independent code (PIC) and 
are therefore important. There is also a 
branch never, which I haven't figured 
out a use for yet. The branches may be 
limited, as on the 6502, to branch for- 
ward oir back about 128 locations 
(short) or they may be double byte ad- 
dresses which permit branching to any 
location in memory. No more "Branch 
out of Range' ' assembly errors! 

Miscellaneous Instructions 

Instead of having a number of in- 
dependent operations to set or clear the 
condition codes as the 6502, the 6809 
uses an ANDCC or ORCC to logically 
AND or OR the condition code register 
to set and clear bits. This permits any 
set of condition codes to be cleared or 
set in one instruction. The 6502 has 
one software interrupt (BRK) com- 
mand. The 6809 has three separate soft- 
ware interrupts which may be used at 
different levels of the program and for 
debugging. 

Addressing Modes 

Probably the most significant im- 
provements made in the 6809 are in the 
addressing modes. Many of the 6502 
modes have been maintained, which is 
not too surprising since many of them 
are rather fundamental: Inherent, 
Immediate, Absolute (16-bit address), 
and others. Some have been modified, 
such as the Relative, which was limited 
to 8-bit on the 6502 but which can be 
8- or 16-bit on the 6809. Some of the 
6502 index/indirect modes have been 
eliminated in their 6502 form, but 
most can be easily generated by the 
new 6809 indexed modes. The indexed 
address modes include: 

1 . Zero offset in which the 1 6-bit index 
value is used as the complete ad- 
dress: LDA X would load the A 
register with the contents of the 
memory address contained in the 
16-bit X register. 

2. Constant offset in which the 16-bit 
index value plus a 5-, 8- or 16-bit 
immediate value is used as the effec- 
tive address: LDA TEST,X would 
add the value of TEST to the con- 
tents of X and use this as the effec- 
tive address. 



3. Accumulator-Offset Indexed ad 
the contents of a specified accum 
lator to the contents of the specifii 
index register to form the effectr 
address: LDA B,X adds the 8-bit 
register to the 16-bit X register 
form the effective address. 

4. Auto Increment/Decrement Indexi 
is a form of the Zero Offset, but al; 
increments or decrements the ind( 
register one or two. This is useful : 
scanning tables, data, and mar 
other operations on organized dat 
This mode permits the X and Y h 
dex registers to be used as addition, 
software stacks. 

5. Indexed Indirect — Most of tl 
index modes permit a level of ii 
direct addressing. The indexing o< 
curs first and the effective address ( 
the indexing operation is used t 
determine the location in memor 
which contains the final addres; 
There is no simple Indirect Indexe 
as on the 6502, but this is easil 
accomplished by the indexin 
modes mentioned above. 



As mentioned in the Branchinj 
instructions, relative addressing ma; 
be short (1 byte offset), as on the 6502 
or long (2 byte offset). This greatly ex 
pands the capabilities of the branching 
instructions. Another important nev 
addressing mode is Program Counte: 
Relative. One of the difficulties ir 
writing position-independent code 
(PIC) on the 6502 is that when the codt 
moves, any tables or other data which 
move with the code lose their absolute 
addresses. With Program Counter Rela- 
tive addressing, the addresses of the 
table or data are calculated relative tc 
the current Program Counter, so thai 
the addresses' relationship between the 
instruction and the table or data is pre- 
served when they are moved together. 



6809 Support 

No matter how fantastic a micro- 
processor chip is, it is virtually useless 
without hardware and software sup- 
port. The success of the 6502 has been 
due in part to the success of the Apple 
II, PET, and other 6502-based micro- 
computers. While the 6809 is the "new 
chip in town, ' ' it does have some solid 
initial support. Although the average 
MICRO reader may want to wait 
awhile longer before seriously consider- 
ing a 6809-based system, the para- 
graphs below provide some insight into 
what is currently available. 
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Hardware 

There are a number of hardware 
devices available. Two are add-ons to 
existing 6502-based systems. Synertek 
Systems has a plug- in module which 
converts the standard SYM-1 into a 
6809-based system. It has a monitor 
equivalent to the 6502 version. This is 
perhaps the cheapest way to experi- 
ment with a 6809 system, particularly 
if you already own the SYM-1. Stella- 
tion Two has "THE MILL," an add-on 
to the Apple n which permits you to 
use both the Apple on-board 6502 and 
the additional 6809. To quote from 
Stellation's literature: 

The 6809 runs at its rated speed 
of 1MHz at the same time the 
6502 is running at 20% of its 
rated speed. This allows the 
6809 to perform time-critical 
tasks which are being controlled 
by the 6502. The control pro- 
gram can do all the slow speed 
operator interaction, and may 
even be written in the Apple's 
native BASIC. 

Several complete systems are cur- 
rently available. Motorola has an 
M6809 Monoboard Microcomputer and 
a Micromodule 19 (M68MM19) for the 
EXORcisor system. Canon's CX-1 is a 
6809 video/floppy desktop computer 
with up to 96 kilobytes RAM, and sup- 
ports DOS, BASIC, and has an 
assembler. Smoke Signal Broadcasting, 
long involved in the 6800, has a system 
— 9822 — based on the 6809. Percom 
Data Company offers the LFD-800. I 
am sure that there are other systems 
currently available,- we will mention 
them in future articles as the informa- 
tion reaches us. 

In addition to the currently 
available systems, there are other 
developments in the works. Rumor, 



unconfirmed at this time, has it that 
the new Radio Shade color computer 
will be 6809-based. I saw an Hitachi 
6980 color system at the West Coast 
Computer Faire in April. It is 
6809-based (the system number may 
have been a typo!) and looked very 
sophisticated. It may be available this 
fall. The Computerist will be offering a 
board this summer which will have a 
floppy disk controller, IEEE-488 con- 
troller, ACIA controller, multiple VIAs, 
RAM, EPROM, cassette interface and a 
6809 microprocessor. This may be 
used, with some form of terminal, as a 
stand-alone system, or may be used in 
conjunction with MICRO PLUS as a 
video-based 6809 system. 

Software 

Although the 6809 is relatively 
new, it is upwardly compatible with 
the older 6800 at the source level, so 
that much of the existing 6800 software 
can be readily converted to run on the 
6809. This means that the time re- 
quired to produce support software has 
been considerably reduced and a fair 
amount is already available. Motorola 
offers a broad range of development and 
support software including BASIC -M, 
an interactive compiler, 6809 Cross 
Macro Assembler and Linking Loader, 
resident Pascal Interpreter and a 6809 
Realtime Multitasking System. 

Technical System Consultants, 
long a provider of 6800-based software 
packages offers: TLEX™ Disk 
Operating System for SWTPc, EXOR- 
ciser and general systems,- UniFLEX™ 
Operating System; a BASIC Precom- 
piler; Sort/ Merge Package; BASIC and 
Extended BASIC; a Text Editor; 
Mnemonic Assembler System; Cross 
Assembler,- Test Processing System,- 
FLEX Utilities; a Debug Package; and 
FLEX Diagnostics. 



Another broad support software 
house is Microware Systems Corpora- 
tion, which has a number of offerings, 
including: OS-9 Operating System, 
BASIC09, Stylograph word processing, 
OS-9 Macro Text Editor, OS-9 Inter- 
active Assembler and OS-9 Interactive 
Debugger. Smoke Signal Broadcasting 
offers, in addition to its hardware, the 
following software: Assembler, Pascal, 
Forth, COBOL, FORTRAN, and a large 
number of application packages in- 
cluding A/P, A/R, Payroll, Inventory, 
Medical and more. Some other com- 
panies who have been listed as vendors 
of 6809 software, but whose catalogs 
have not been received in time for this 
article, include: Phoenix Digital, Soft- 
ware Dynamics, and Softech Micro- 
systems, Inc. 

Summary 

It may be a little bit early for most 
MICRO readers to rush out and buy a 
6809-based system, but it is definitely 
not too early to become aware of the 
relatively new 8-bit microprocessor 
which may well be the successor, over 
time, to the 6502. Readers who are ac- 
tive in microcomputer hardware and 
software development will certainly 
want to keep abreast of the happenings 
in this area. MICRO will be generating 
a series of articles to help readers be- 
come more aware of, and understand, 
the 6809. We invite and encourage 
anyone who has experience in using the 
6809, and particularly in converting 
from 6502 to 6809, to consider writing 
about his experiences. 

Editor's note: All companies 
developing 6809-based systems, or 
6809-based software, are urged to send 
us related information to be included in 
a future resource list. 
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Last year we tested or 
reviewed 141 PET 
programs, evaluated 
54 peripherals ranging 
from light 
pens to 
printers, 
and ran 
27 major 
articles on 
PET pro- 
gramming. 
Our gossip 
columnist 
blew the 
gaffe on 



TRUTH 
ABOUT 
THE PET 



X- 



dozens of inside 
stories, receiving two 
death threats, five 
poison pen letters and 
a dead rat for his 
pains. We also 
published 53 letters 
from PET users, 88 



listings, 105 
programming hints, 
and 116 news stories 
about the CBM/PET. 
All this 
added up to 
more than 
150,000 
words of 
essential 
PET infor- 
mation. 
We are 
PRINTOUT, 
the inde- 
pendent 



magazine about the 
CBM/PET. Shouldn't 
you subscribe? 



$36 buys you the ten issues of 
Volume 2 (1981 ) or the complete 
set ol Volume 1 11980) ..Simply 
send us a cheque, postal or 
money order or the number of 
your Barclaycard/Visa, Access, 
Mastercharge or Eurocard 
We also accept credit card 
orders by telephone on 
0635-201131. Samph 

copies of the latest 
issue are available at $5 
All prices include UK 
postage. 



To PRINTOUT POBox48, Newbury, Berkshire RG16 OUJ. England. 

My Name is 

Address 



M381 



.Postcode . 



Please Enter my Subscription to : [I Volume 2 (1981 ) [ ] Send me the set of Vol 1 (19801 
[ ] I enclose my cheque or Postal Order OR 

[ I Debit my Access/Mastercharge/Eurocard/Barclaycard/Visa account No 

[ I UK £9.50 
[ I Europe Airmail £16 
[ IRest of World Air £25 
Send me a sample copy 
Send me .... binders @ 



I ] Eire £12.50 Punts [ ] Europe (surface) £14.50 

( ] USA Airmail S45 I ] USA (surface) $36 

[ 1 Rest of World Isurface) £14.50 

(]UK£1 (I Europe Air £1 .50 (J USA Air S5 

[ I UK £3.50 | 1 Eire £4.50 Punts I 1 Europe £5 I ] Rest of World £7.50 




I I USA £19 
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Programmable 

Character Generator 

for the CBM 2022 Printer 






The CBM 2022 printer allows 
programmable characters, but 
the method provided is tedious. 
With this BASIC program, a 
special character can be 
designed on the screen. The 
special character codes are 
generated and can be stored on 
tape or disk in "dictionary" form 
for future use. 



Roger C. Crites 
11880 Rio Grande 
St. Louis, MO 63138 



When I purchased my CBM 2022 
printer I was impressed with the 
availability of programmable charac- 
ters. I had visions of generating reports 
with the special math symbols, and 
charts with special plotting symbols. 
Text would be vertically, diagonally or 
otherwise aligned with chart axes. I 
would make dot plot printer art with 
subtle shading. I was going to really 
work the devil out of that program- 
mable character. 

Well, it always takes much longer 
to do anything than you think it will. 
When the new toy syndrome wore off 
and I was left with the work that I had 
bought the printer for in the first place, 
my enthusiasm over the programmable 
character fell. It was just too tedious to 
stop in the middle of a job and figure 
out the character code needed to 
achieve the effect desired. After all, it's 
more important to get the work out, 
plain, but finished, than to hit the 
deadline with a very snazzy half job. 
Before long I came to completely ignore 
the programmable character, but I 
never forgot it was there. 

After a time I concluded that the 
bottleneck in the use of this capability 
was mostly due to the time required to 
figure out the special character codes. 
What I needed was an extensive dic- 
tionary of all the special codes that I ex- 
pected to use. If all the character codes 



Figure 1 



io^: 



:.Pqqpj=jjv! rjjpippjQTER & utt RETUR 




Upper left corner of the screen, waiting to have a character programmed. 



§§©§§§!; 



# Si 

612345 PROGRAM CHARACTER & HIT RETURN 



1 fi:-; '3:-; 



sr oc 



Upper left corner of screen after programming summation symbol (see 5th entry on 
sample output page). 

p IP v 9 .„; 

§ 8 4 

* 3 
8 2 

# 1 
§ 

012345 PROGRAM CHARACTER & HIT RETURN 



16 



Upper left corner of screen after programming greek letter Tau (see 4th entry on 
sample output page). 
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were known, they could be compiled 
into concise data sets — one for charts 
and one for text, etc. Stored on tape any 
"dictionary" could be merged with the 
current work file as a string array, 
PC$|I). From there it's down hill. 

If a single special character is needed 
in a line, the required code is invoked 
by writing PC$|I) to printer secondary 
address 5, then inserting CHR$(254) in 
the print stream where needed. If 
multiple special characters are needed 
on a line it is a little more tricky. The 
printer only takes one programmable 
character at a time. To get more than 
that on the same line it is necessary to 
use a return without line feed. This is 
done by breaking the print string into 
several components. Each component 
must contain only one special 
character. Each component is output, 
inserting the required special character 
code in the correct place. The length of 
the output component is determined, 



the return code CHR$(141) ; is append- 
ed to the component and the resulting 
string printed. This prints the first 
component containing the first special 
character and returns without advanc- 
ing the paper. The next special 
character is programmed as before, the 
length of this component determined, 
and CHR$(141] ; appended. Before out- 
putting this component, however, it is 
necessary to prefix SPC(CL) to the out- 
put string. 

CL is the sum of all previous com- 
ponent lengths. When this is output, 
the printer will space over the previous 
components, print the current compo- 
nent, and return without advancing the 
paper. This process is repeated until all 
components have been output. A blank 
print then advances the paper, ready for 
the next line. Admittedly this pro- 
cedure is somewhat cumbersome, but 
once the necessary subroutine is work- 
ed out it can be implemented in most 
programs without further effort. 



100 REM********************************** 

110 REM*** *** 

120 REM*** PROGRAMMABLE CHARACTER *** 

130 REM*** *** 

140 REM*** PROGRAMMER *** 

150 REM*** *** 

160 REM*** *** 

1 70 REM********************************** 

180 REM THIS PROGRAM PROGRAMS PROGRAMMABLE 

190 REM CHARACTERS FOR THE CEf'1 2022 PRINTER: 

200 REM 

210 OPEN 4, 4: OPEN 5,4,5 

220 OPENS , 4,6: pp. t NT#S , CHR* < 1 6 > 

230 PR I NT#4 , CHR* < 1 .) + " PROGRAMMABLE CHARACTERS " +CHR* < 1 @ > +CHR* (. 1 8> 

240 PR I NT" a"; 

250 PRINT" 6" 

260 PRINT" 5" 

279 PRINT" 4" 

230 PRINT" 3" 

290 PRINT" 2" 

300 PRINT" 1" 

310 PRINT" 0" • 

320 PRINT "61 2345 PROGRAM CHARACTER & HIT RETURN" 

330 INPUT A* 

340 IF fl$="END"GOTO510 

350 FOR I =OT05 ■' C < I > =6 •' NEXT I 

360 FORI=0TO5 

378 FORJ=0TO6 

380 X=PEEK<32768+40*J+I > 

390 IF X032 THEN CO :>=C<I?+2Kb-J> 

4W0 NEXTJ 

410 NEXT I 

420 PRINT^aMMftBttftM" .; 

430 FOR I =0T05 : PR I NTC C I ) ; : NEXT I 

440 P*="" 

456 FOR l=dJ05-Pt=P$+CHR9(.C(.l '>'>■■ HEX! 

460 PRINT#5,P* 

470 PRINT#4,"I 1" 

4S0 PRINT#4,"I "CHR*<254>" l"C(8);C(l);C(2);C(3);C<4);C(5) 

490 PRINT#4, "I I" 

500 GOTO240 

510 REM** RESET PRINTER & STOP ** 

520 PR I NT#S , CHR* ( 24 > 



PROGRflMMflBLE 
CHflRflCTERS 



65 99 119 127 107 9S 

2 37 89 73 38 
3 4 8 24 36 67 

16 32 32 63 32 64 

67 103 93 73 65 99 

1 38 37 41 30 32 

127 65 69 125 73 127 
12 18 18 30 18 13 

2 2 14 18 18 14 
24 36 4 4 36 24 
28 36 36 36 36 28 

68 4 28 4 4 60 
60 4 28 4 4 4 

IS 18 30 18 18 12 
24 20 20 24 2@ 24 
12 18 16 16 18 12 
B 28 34 42 34 28 
i27 34 2u 8 @ 
63 33 45 45 33 63 
17 17 125 17 17 
54 127 127 54 6 
4 2 127 2 4 
8 28 42 8 8 8 
8 8 8 42 28 8 
a 16 32 127 32 16 
120 96 80 72 4 2 
2 4 72 80 36 120 
15 3 5 9 16 32 
32 16 9 5 3 15 
10 20 20 10 10 26 
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After I had decided all this, the 
major task was compiling the special 
character "dictionary." To aid in this 
process I called on my PET. The result 
is a program to compute programmable 
character codes. With this program 
anyone |with a PET) can quickly 
generate a special character dictionary. 



Before walking through the pro- 
gram, it will be helpful to review the 
process of programming a special 
character for the CBM 2022. The print 
head produces a 6-column by 7-row dot 
matrix. The rows are binary weighted 
starting from the bottom; i.e., 
1,2,4,8,16,32,64. The dots to be turned 
on to form the character are chosen. 
Then binary weights associated with 
the chosen dots are summed column- 
by-column. The result is 6 sums, one 
for each column. If this is the Ith 
character and SI, S2, ..., S6 represent 
the 6 column sums, then PC$(I) = 
CHR$(S1) +CHR$(S2) + ... +CHR 
$(S6). For a more detailed description 
of the process refer to the CBM 2022 
printer manual. 



Now for the program. Line 210 
opens files to the printer. File 4 is a 
general print file and file 5 is the 
character programmer in the printer. 
Line 220 adjusts the line spacing and 
lines 230-320 print a heading on the 
printer and form a 6 by 7 blank matrix 
on the screen. Line 330 waits for an in- 
put. If the input, A$ = "END", the pro- 
gram jumps to line 510, resets the line 
spacing and stops. To program a 
character, home the cursor. Then use 
the cursor controls to position the cur- 
sor, marking the dots (I use a space 
ball— shift Q) to form the desired 
special character. That is, you simply 
draw a picture of the desired character 
on the screen in the matrix outlined 
(see the examples). When you have 
completed the character, hit return. 

Since A$ will not be "END", the 
program drops through to line 350. 
Lines 350-410 PEEK the character drawn 
on the screen and calculate the column 
codes necessary to program the char- 
acter. Lines 440-490 print out the new 
special character and its column 
codes— one more entry in the dic- 



tionary. Line 500 loops back to repeat 
the process. 

It should be pointed out that if lines 
220 and 520 are omitted this program 
should also work for the CBM 2023. 

The output (as shown for a page of 
random characters) is a convenient 
hard copy suitable for filing. Characters 
needed for any purpose are quickly 
selected from the dictionary and 
assembled into character string arrays 
as previously discussed. 

With the aid of this approach to the 
programmable character, my printouts 
are finally beginning to benefit. I must 
admit, however, the results still fall 
short of my first imaginations. This 
may be the fault of human nature — 
reality seldom equals the imagination. 
In any case the CBM 2022 is capable of 
producing excellent results. 

I suspect that there are others with 
CBM systems who would like to put 
the programmable character to work, 
but like myself have found the process 
too tedious to be practical. It is for 
them that I offer these reflections and 
the character generating program. 

JMCRO 
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The First Edition (April, 1981) of the 



COMMODORE SOFTWARE ENCYCLOPEDIA 



is now available from your 
authorized COMMODORE Dealer, for . 



.95 



OVER 150 PAGES! MORE THAN 500 SOFTWARE ENTRIES! 

The next edition of the COMMODORE SOFTWARE 
ENCYCLOPEDIA will be available in 90 to 120 days. If your 
software is not listed and you would like to have it listed 
in the next edition, please submit details to: 



SOFTWARE DEPARTMENT 



commodore 

BUSINESS MACHINES, INC. 

Computer Systems Division 

300 Valley Forge Square, 681 Moore Road 
King of Prussia, PA 19406 



Or call our 

SOFTWARE HOTLINE 
Number 

1-800-523-5622 
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The Newest In 



Apple Fun 



We've taken five of our most popular programs and 
combined them into one tremendous package full of 
fun and excitement. This disk-based package now of- 
fers you these great games: 

Mimic — How good is your memory? Here's a chance 
to find out! Your Apple will display a sequence of 
figures on a 3 x 3 grid. You must respond with the ex- 
act same sequence, within the time limit. 

There are five different, increasingly difficult ver- 
sions of the game, including one that will keep going 
indefinitely. Mimic is exciting, fast paced and 
challenging — fun for all! 

Air Flight Simulation — Your mission: Take off and 
land your aircraft without crashing. You're flying 
blind — on instruments only. 

A full tank of fuel gives you a maximum range of 
about 30 miles. The computer will constantly display 
updates of your air speed, compass heading and 
altitude. Your most important instrument is the Angle 
of Ascent/Bank Indicator. It tells if the plane is climb- 
ing or descending, whether banking into a right or left 
turn. 

After you've acquired a few hours of flying time, 
you can try flying a course against a map or doing 
aerobatic maneuvers. Get a little more flight time 
under your belt, the sky's the limit. 
Colormuter — Test your powers of deduction as you 
try to guess the secret color code in this Mastermind- 
type game. There are two levels of difficulty, and three 
options of play to vary your games. Not only can you 
guess the computer's color code, but it will guess 
yours! It can also serve as referee in a game between 
two human opponents. Can you make and break the 
color code. . .? 

Star Ship Attack— Your mission is to protect our or- 
biting food station satellites from destruction by an 
enemy star ship. You must capture, destroy or drive 
off the attacking ship. If you fail, our planet is 
doomed . . . 

Trilogy— This contest has its origins in the simple 
game of tic-tac-toe. The object of the game is to place 
three of your colors, in a row, into the delta-like, mul- 
ti-level display. The rows may be horizontal, vertical, 
diagonal and wrapped around, through the "third di- 
mension". Your Apple will be trying to do the same. 
You can even have your Apple play against itself! 

Minimum system requirements are an Apple II or 
Apple II Plus computer with 32K of memory and one 
minidisk drive. Mimic requires Applesoft in ROM, all 
others run in RAM or ROM Applesoft. 
Order No. 0161AD $19.95 



Solar Energy For The Home 

With the price of fossil fuels rising astronomically, solar space-heating systems are starting to become very 
attractive. But is solar heat cost-effective for you? This program can answer that question. 

Just input this data for your home: location, size, interior details and amount of window space. It will then 
calculate your current heat loss and the amount of gain from any south facing windows. Then, enter the data 
for the contemplated solar heating installation. The program will compute the NET heating gain, the cost of 
conventional fuels vs. solar heat, and the calculated payback period— showing if the investment will save you 
money. 

Solar Energy for the Home: It's a natural for architects, designers, contractors, homeowners. . .anyone 
who wants to tap the limitless energy of our sun. 

Minimum system requirements are an Apple II or Apple II Plus with one disk drive and 28K of RAM. 
Includes AppleDOS 3.2. 
Order No. 0235AD (disk-based version) $34.95 



Math Fun 



Paddle Fun 



This new Apple disk package requires a steady eye and a quick hand at the game paddles! It includes: 
Invaders — You must destroy an invading fleet of 55 flying saucers while dodging the carpet of bombs they 
drop. Your bomb shelters will help you— for a while. Our version of a well known arcade game ! Requires Ap- 
plesoft in ROM. 

Howitzer— This is a one or two person game in which you must fire upon another howitzer position. This pro- 
gram is written in HIGH-RESOLUTION graphics using different terrain and wind conditions each round to 
make this a demanding game. The difficulty level can be altered to suit the ability of the players. Requires Ap- 
plesoft in ROM. 

Space Wars — This program has three parts: (1) Two flying saucers meet in laser combat — for two players, (2) 
two saucers compete to see which can shoot out the most stars — for two players, and (3) one saucer shoots the 
stars in order to get a higher rank — for one player only. Requires Applesoft. 

Golf— Whether you win or lose, you're bound to have fun on our 18 hole Apple golf course. Choose your 
club and your direction and hope to avoid the sandtraps. Losing too many strokes in the water hazards? You 
can always increase your handicap. Get off the tee and onto the green with Apple Golf. Requires Applesoft. 

The minimum system requirement for this package is an Apple II or Apple II Plus computer with 32K of 
memory and one minidisk drive. 
Order No. 0163AD $19.95 



The Math Fun package uses the techniques of immediate feedback and positive reinforcement so that 
students can improve their math skills while playing these games: 

Hanging— A little man is walking up the steps to the hangman's noose. But YOU can save him by answering 
the decimal math problems posed by the computer. Correct answers will move the man down the steps and 
cheat the hangman. 

Spellbinder— You are a magician battling a computerized wizard. In order to cast death clouds, fireballs and 
other magic spells on him, you must correctly answer problems involving fractions. 
Whole Space — Pilot your space craft to attack the enemy planet. Each time you give a correct answer to the 
whole number problems, you can move your ship or fire. But for every wrong answer, the enemy gets a 
chance to fire at you. 

Car Jump — Make your stunt car jump the ramps. Each correct answer will increase the number of buses your 
car must jump over. These problems involve calculating the areas of different geometric figures. 
Robot Duel — Fire your laser at the computer's robot. If you give the correct answer to problems on calculat- 
ing volumes, your robot can shoot at his opponent. If you give the wrong answer, your shield power will be 
depleted and the computer's robot can shoot at yours. 

Sub Attack— Practice using percentages as you maneuver your sub into the harbor. A correct answer lets you 
move your sub and fire at the enemy fleet. 

All of these programs run in Applesoft BASIC, except Whole Space, which requires Integer BASIC. 
Order No. 0160AD $19.95 



Skybombers — 

Two nations, seperated by The Big Green Moun- 
tain, are in mortal combat! Because of the terrain, 
their's is an aerial war— a war of SKYBOMBERS! 

In this two-player game, you and your opponent 
command opposing fleets of fighter-bombers armed 
with bombs and missiles. Your orders? Fly over the 
mountain and bomb the enemy blockhouse into dust! 

Flying a bombing mission over that innocent look- 
ing mountain is no milk run. The opposition's aircraft 
can fire missiles at you or you may even be destroyed 
by the bombs as they drop. Desperate pilots may even 
ram your plane or plunge into your blockhouse, sui- 
cidally. 

Flight personnel are sometimes forced to parachute 
from badly damaged aircraft. As they float helplessly 
to earth, they become targets for enemy missiles. 

The greater the damage you deal to your enemy, the 
higher your score, which is constantly updated at the 
bottom of the display screen. 

The sounds of battle, from exploding bombs to the 
pathetic screams from wounded parachutists, remind 
each micro-commander of his bounden duty. Press 
On, SKYBOMBERS— Press On! 

Minimum system requirements: An Apple II or Ap- 
ple II Plus, with 32K RAM, one disk drive and game 
paddles. 
Order No. 0271AD (disk-based version) S19.95 




Instant Software 




* A trademark of Apple Computer Inc. 

PETERBOROUGH, N.H. 03458 
603-924-7296 
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Apple* Software 



r 



From Instant Software 



Santa Paravia and Fiumaccio 



Buon giorno, signore! 

Welcome to the province of Santa Paravia. 
As your steward, I hope you will enjoy your 
reign here. I feel sure that you will find it, shall 
we say, profitable. 



Perhaps I should acquaint you with our little domain. It is not a 
wealthy area, signore, but riches and glory are possible for one who 
is aware of political realities. These realities include your serfs. They 
constantly request more food from your grain reserves, grain that 
could be sold instead for gold florins. And should your justice 
become a trifle harsh, they will flee to other lands. 

Yet another concern is the weather. If it is good, so is the harvest. 
But the rats may eat much of our surplus and we have had years of 
drought when famine threatened our population. 

Certainly, the administration of a growing city-state will require 
tax revenues. And where better to gather such funds than the local 
marketplaces and mills? You may find it necessary to increase custom duties or tax 
the incomes of the merchants and nobles. Whatever you do, there will be far- 
reaching consequences . . . and, perhaps, an elevation of your noble title. 

Your standing will surely be enhanced by building a new palace or a magnificent 
cattedrale. You will do well to increase your landholdings, if you also equip a few 
units of soldiers. There is, alas, no small need for soldiery here, for the unscrupulous 
Baron Peppone may invade you at any time. 

To measure your progress, the official cartographer will draw you a mappa. From 




it, you can see how much land you hold, how much of it is under the plow and how 
adequate your defenses are. We are unique in that here, the map IS the territory. 
I trust that I have been of help, signore. I look forward to the day when I may ad- 
dress you as His Royal Highness, King of Santa Paravia. Buonafortuna or, as you 
say, "Good luck". For the Apple 48K. 
Order No. 0174A $9.95 (cassette version). 
Order No. 0229AD $19.95 (disk version). 



TO SEE YOUR LOCAL INSTANT SOFTWARE DEALER OR USE THE ORDER FORM BELOW 

ORDER 

For Fast a ifir 



1-800-258-5473 



Apple Cassettes 

0018A Golf $7.95 

0025A Mimic $7.95 

0040A Bowling/Trilogy $7.95 

0073A Math Tutor 1 $7.95 

0079A Oil Tycoon $9.95 

0080A Sahara Warriors $7.95 

0088A Accounting Assistant $7.95 

0094A Mortgage w/Prepayment Option/ 

Financier $7.95 

0096A Space Wars $7.95 

0098A Math Tutor II $7.95 

0174A Santa Paravia and Fiumaccio $9.95 

0148A Air Flight Simulation $9.95 

We Guarantee It! 



\Jye> Guarantee ^\^ 




,i»nt Soff^ 



&' 



OUR PROGRAMS ARE GUARANTEED 
TO BE QUALITY PRODUCTS. IF NOT 
COMPLETELY SATISFIED YOU MAY 
RETURN THE PROGRAM WITHIN 60 
DAYS. A CREDIT OR REPLACEMENT 
WILL BE WILLINGLY GIVEN FOR 
ANY REASON. 



r 


10 


n 




r.ity £tat» 7in 




O Check Q Money Order □ VISA D AM EX 

Carrt hlr, Cvf 


□ Master Charge 1 




Data 








1 Order your Software today! 1 




Quantity 


Order No. 


Program name 


Unit cost 


Total cost 
















































































Shipping and handling 




$1.00 




! 

1 


■ ■ ■ #% 0% ■ Tolat order 






Inslant software Inc. 






j 


Peterborough, N.H. 03458 
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Chib Circuit 



Mike Rowe 
Club Circuit 
P.O. Box 6502 
Chelmsford, MA 01824 

The following club announcements are 
presented in zip code oidei. 



Capital Area PET Enthusiasts (CAPE) 

This group meets at the Patrick Henry 
Library, Route 123, in Vienna, Virginia, 
on the second Saturday of each month 
at 1:30 p.m. Robert C. Karpen is presi- 
dent, and membership now totals 40. 
The group's purpose is to exchange 
views, experiences and programs, and 
to discuss problems. For additional 
information, please write to: 

CAPE 

2054 Eakins St. 

Reston, Virginia 22091 



Basically Ohio Scientific Systems 
(B.O.S.S.J 

This recently-formed club meets on the 
first Tuesday of each month at Sarasota 
Junior High School at 7:30 p.m. Its 
objectives include information sharing 
through the club's library, and 
demonstrations. B.O.S.S. is open to all 
current or prospective OSI owners. 
Dues are $12.00 per year. Area OSI 
owners interested in membership, and 
clubs interested in newsletter 
exchanges contact: 
B.O.S.S. 
P.O. Box 3695 
Sarasota, Florida 33578 



Rockford Area PET Users 

Tom Storm is president of this 
50-member group. It meets on the 
second Thursday of each month at 7:00 
p.m. at Rock Valley College. The 
group's purpose is the general exchange 
of ideas on programming for the PET. If 
interested, please contact: 
Mark f. Niggemann 
912 St. Andrew's Way 
Rockford, Illinois 61107 



Sorbus Komputer Club (O.K.C.J 

The purpose of this group is to help 
members learn programming tech- 
niques. Charles Olson is president and 
meetings are held every Thursday. For 
additional information contact: 

Jim Johannes 

1411 Classen Blvd. 

Suite 348 

Oklahoma City, OK 73106 



New Braunfels 6502 Club 

Informal meetings are held on the 4th 
Tuesday of each month at members' 
homes. David Sarkozi is the president, 
and membership stands at 15. The pur- 
pose of this club is to trade software 
and hardware ideas and to assist 
members having problems with either. 
For additional information, please 
contact: 

David Sarkozi 

171 Louisiana 

New Braunfels, TX 78130 



Bay Area Atari Users Group 

Membership of this group now stands 
at 120, and Clyde H. Spencer is presi- 
dent. The group meets on the first 
Monday of each month at Foothill Col- 
lege. Newsletter is $12/year, and the 
aim of the group is to share and 
disseminate information about the 
Atari personal computer. For informa- 
tion write c/o: 

Foothill College 

12345 El Monte Road 

Los Altos Hills, California 94022 



Forth Interest Group 

Meets on the fourth Saturday at Noon. 
Membership is over 1200. The club 
puts out a publication called "Forth 
Dimensions." for more information, 
contact: 

Roy Martens, Publisher 

FORTH Interest Group 

P.O. Box 1105 

San Carlos, CA 94070 

(415) 962-8653 

Santa Cruz Apple Users' Group 

Jim McCaig is president of the Santa 
Cruz Apple Users' Group. The group's 
15 members meet every 2nd Sunday in 
Felton. Its purpose is to lend program- 
ming assistance and to aid beginners. 
For additional information contact: 

"Jay" Schaffer, Secretary 

345-32nd Avenue 

Santa Cruz, California 95062 



Ohio Scientific Users Group North 

This group, begun in 1979, now h; 
members. They meet on the seconc 
day of each month at 7:30 p.m. a 
Data Systems Plaza. Mike Mahon 
president, and the group's goal 
share information and ideas about 
computers and to publish a newsh 
If interested, please contact: 
Valerie J. Mahoney 
P.O. Box 14082 
Portland, Oregon 97214 

Niagra Region '6502' Micro Users 

This group's purposes are to bu: 
software library that members can 
row from, conducting presentatioi 
6502 micros and their aspects, and 
moting the club Newsletter c 
'6502'. Meetings include demon 
tions, seminars, workshops, lect 
sharing ideas and programs . Mee 
are held at the College of Educatioi 
Catharines, Ontario. For more info 
tion, contact: 

Dr. R. Crane 
College of Education 
St. Catharines, Ontario L2S 
[416) 684-7201 ext. 433 

British Apple Systems User Grout 

This newly-formed group already 
over 300 members. They meet 
nightly, just north of London, 
publish a bi-monthly newslettei 
well as software disks. Martin Pei 
the Club's secretary. For more info 
tion, please contact him 

c/o British Apple Systems 
User Group 

P.O. Box 174 

Watford, WD2 6NF 

England 

PET Users in West Lancashire 

This group meets on the third Tl 
day of each month at 7 p.m. at 
Arnold School in Blackpool. The § 
has 32 members, with David Jc 
serving as president. For more 
contact: 

David Jowett 

PET Users in West Lancash 
197 Victoria Road East 
Thornton, Blackpool 
FY5 3ST England 



MICRO offers a free one year subi 
tion to all clubs registered with ui 
registration form write to: 

MICRO Club Circuit 

Box 6502 

Chelmsford, MA 01824 
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Musical Duets 
on the Apple II 



Music generated by the Apple II, 
without extra firmware, is 
usually limited to one voice. 
Here are two Applesoft 
programs which, with the help of 
an ordinary amplifier, add a new 
dimension to Apple music — 
harmony. 



Rick Brown 
8903 Nogal Ave. 
Whittier, California 90606 



Anyone who has ever done any serious 
game-playing on the Apple n surely 
realizes how a catchy tune played 
through the Apple's speaker can 
enhance a program. A short machine 
language program is all that is needed 
to generate notes with a wide range of 
frequencies and durations. Such a tone- 
generating program is very nice, but it 
has the drawback of generating only 
one voice, which is to say, only one 
note at any given time can be played 
through the speaker. The usual way to 
acquire extra voices is to open the piggy 
bank and buy a music board or some 
other peripheral device designed for 
synthesizing music. For the serious 
music lover, it may be that nothing less 
will do. But can anything be done to 
satisfy the rest of us, whose standards 
(or finances) may not be as high? I 
chose to try to add, through software, a 
second voice to the Apple. 

Now, before we go further, a little 
information about how a tone-gener- 
ating program works is in order.The 
assembly language instruction LDA 
$C030 will toggle the Apple's speaker 
once every time it is executed, 
resulting in a little "click." Any sound 
whatsoever coming from the speaker is 
nothing but a series of such clicks, and 
the nature of the sound depends only 
on the interval of time between one 
click and the next. In the simplest case, 
this time interval is constant, and a 
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steady, single-frequency, "pure" tone 
is generated. One convenient way to 
control the length of the pause between 
clicks is to use a "do-nothing" loop in 
the program, which generates a pause 
that is proportional to the number of 
times the loop is executed. The longer 
the pause between clicks, the lower the 
frequency of the resultant tone. 

It occurred to me that it might be 
possible, by interleaving two such "do- 
nothing" loops, to superimpose one 
tone upon another and thus create the 
Apple's second voice. Consider two 
tones, one with a frequency of 500 Hz, 
and the other with a frequency of 300 
Hz. To generate the first, we make the 
speaker click at intervals of 0.002s |s = 
seconds); that is, at these instants: 
0.000s, 0.002s, 0.004s, 0.008s, 0.010s, 
etc. 

Similarly, the 300 Hz tone would 
click at these instants: 0.0000s, 
0.0033s, 0.0067s, 0.0100s, etc. Now, to 
generate both tones simultaneously, 
we should (it would seem) click the 
speaker at these instants: 0s, 0.002s, 
0.0033s, 0.004s, 0.0067s, 0.008s, 
0.01s, and so on. The problem of the 
two tones "clicking" at the same in- 
stant (e.g., at 0s and at 0.01s) is taken 
care of by a sort of "phase shift" in- 
herent in the way the two "do-nothing" 
loops are interleaved. 

Well, it all looks good on paper, and 
it might even work, were we using 
sinusoidally varying pulses instead of 
instantaneous clicks. But in fact, what 
results from the above technique is one 
of the most awful noises I've ever heard 
coming from the Apple speaker. 



A More Promising Technique 

All is not lost. There is another 
assembly language instruction, LDA 
$C020, which toggles not the speaker, 
but the cassette output. This produces 
a "click" on a cassette recording, or, if 
the output jack is connected to an 



amplifier, an audible click is produced. 
This is the secret to the second voice. 
There are several ways to amplify the 
signal. Perhaps the simplest is to plug 
an external speaker into your cassette 
recorder, and set the recorder in the 
"record" mode. Then, any input to the 
microphone jack will be amplified 
through the external speaker. Alter- 
natively, you could patch from the 
cassette output jack to the computer to 
the auxiliary input of a stereo set. This 
method will probably give you more 
control over volume and tone. Now, by 
clicking the Apple speaker at a fixed in- 
terval, and clicking the alternate 
speaker at a different fixed interval, we 
can produce two distinct simultaneous 
tones. The Apple now harmonizes with 
itself! 

Making Music 

The core of the programs presented 
here is a machine language routine 
which generates two simultaneous 
notes of different pitches (PI and P2), 
and different durations (Dl and D2). 
These notes are stored in two tables: 
one contains the melody and the other 
contains the harmony. After a note 
(either melody or harmony) is com- 
pleted, the routine fetches the next 
pitch and duration from the appropriate 
table, and plays the next note. When a 
duration of zero is encountered in 
either table, the song is considered to 
be complete, and the machine language 
routine terminates. A listing of this 
routine is given in figure 1. 

For each note, the pitch and dura- 
tion take up one byte apiece. Thus 
there are 256 variations of pitch, and 
255 possible durations (recall that a 
duration of zero will end the song). The 
value of P (the pitch) is proportional to 
the time delay between two successive 
"clicks" of the speaker, so that the 
highest values of P will produce the 
lowest notes. Because of this, P should 
be considered proportional to the 
wavelength, rather than to the frequen- 
cy, of the note. 
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Although we have 256 wavelengths 
to choose from, most of them produce 
notes which are "between the keys of a 
piano." In other words, in order to 
make use of the isotonic scale to which 
we are accustomed, and in which 
music is commonly -written, we must 
use only twelve notes per octave, and 
discard those values of P which produce 
non-isotonic notes. The range of 256 
wavelengths available to us covers ex- 
actly eight octaves, and so the max- 
imum number of isotonic notes we can 
use is 8 x 12, or 96. |In practice, the 
number is limited still further, as ex- 
plained below.) 

The ratio of wavelengths of two 
consecutive notes on the isotonic scale 
is a constant 2 a (1/12), or about 1 .059, 
so that the ratio of wavelengths of two 
notes an octave apart is always 2: 1 . 
Thus wavelengths 128 and 64 are an oc- 
tave apart, as are wavelengths 20 and 
10, 2 and 1, and so forth. This fact im- 
poses an obvious limitation on the 
higher notes. 

Suppose we have a very high 
note— say of wavelength 4. The note 
one octave higher, then, has a 
wavelength of 2. Now, since the pro- 
gram uses only integers to represent 
wavelengths, it cannot generate the 11 
isotonic notes between these two 
wavelengths (in fact, it can only 
generate one, corresponding to 
wavelength 3). 

Another problem arising out of the 
use of integers for wavelengths is that 
the higher notes have an unavoidable 
tendency to go off-key. Suppose that 
the exact isotonic wavelength of a par- 
.ticular note (a low. note,, in this exam- 
ple) is calculated to be 154.43 on a scale 
from 1 to 256. This is rounded off to 
154, creating a relative :error of 0.29%. 
Consider now, a much higher note, 
whose exact wavelength is 15.43. This 
is rounded to 15, causing a much higher 
relative error of 2.8%, and it is this 
relative error (rather than the absolute 
error), which is detected by the ear. 

Taking into account the limitations 
discussed earlier, I designed the pro- 
gram to use the lowest 65 isotonic 
notes available, covering a little more 
than five octaves, and using wave- 
lengths from 6 to 256 (the latter 
wavelength is represented by zero in 
the routine). The highest notes are still 
a bit off-key, but generally .they are 
rarely used and so won't create much of 
a problem. As far as the durations of the 
notes are concerned, they remain, as far 
as the ear can tell, faithfully propor- 
tional to their numerical values, 
throughout the range from 1 to 255. 



032* 
0329 
D32B 
032C 
032F 
0332 
0332 
0335 
0338 
0339 
033B 
033C 
033F 
0342 
0342 
0345 
0348 
034B 
034D 
0350 
0352 
0355 
0351 
3 5A 
035D 
0360 
0360 
0362 
0364 
366 
0368 
036A 
36C 
036F 
0371 
0373 
0375 
0377 
0379 
037C 
037E 
037F 
0380 
0383 
0384 
0384 
0386 
0388 
038A 
38C 
038E 
0390 
0393 
3S5 
0357 
0399 
039B 
039B 
03A0 
3A2 
03A3 
3A4 
03A7 



CA 
r007 
EA 

AD1U1 
4C38 03 

AD30C0 

AE0103 

88 

F007 

IA 

adihi 

4C4803 

AD20C0 

AC0303 

CE0003 

D0DB 

CE02O3 

D003 

206003 

CE0403 

D0CE 

208403 

4C2803 

A200 

A506 

D002 

C607 

C606 

A106 

8DOI03 

A506 

D092 

C607 

C606 

A106 

8D0203 

D002 

68 

68 

AE0103 

60 

A000 

A508 

D602 

C609 

C608 

B108 

8D0303 

A508 

D00 2 

C609 

C608 

B108 

8D0403 

D002 

68 

68 

AC0303 

60 



Figure 1: The Two-Tone Generating Routine. 
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0800 




NDX1L 


EPZ 


S06 




0800 


INDX1H 


EPZ 


$07 




0800 




NDX2L 


EPZ 


$08 




08O0 




NDX2H 


EPZ 


$09 




0800 












0800 






ECU 


$300 




0800 


PI 


ECU 


S301 




0800 


Dl 


EQU 


$302 




'0800 


P2 


EQU 


S303 




0800 


D2 


EQU 


$304 




0800 




1L 


EQU 


$305 




0800 




1H 


EQU 


$306 




0800 




2L 


ECU 


$307 




0800 




2H 


EQU 


$308 




0800 












0369 






ORG 


$309 




03OT 






OBJ 


$800 




0309 












309 


ADO503 




LDA 


III 


INITIALIZE 


030C 


8 5ff6 




STA 


INDX1L 


POINTERS 


.0 305 


ADO603 




LDA 


I1H 


TO 


0311 


8 507 




STA 


-INOX1H 


BEGINNING 


031-3 


AD0703 




LDA 


I2L 


ADDRESSES 


0316 


8 508 




STA 


IHDX2L 


OF 


0318 


AD0803 




LDA 


I2H 


NOTE 


031B 


8 509 




STA 


INDX2H 


TABLES 


-0 31D 


A-900 




LDA 


♦ $00 




031F 


8D0003 




STA 


I 




0322 


206003 




JSR 


READ1 


FETCH FIRST NOTE OF MELODY 


0325 


208403 




JS-R 


READ2 


FETCH FIRST NOTE OF HARMONY 



DEX 

BED TONE1 

NOP 

LDA $11 11 

JMP LBL2 

LDA $CO30 

LDX PI 

DEY 

BEQ T0NE2 

NOP 

LDA $1111 

JMP LBL3 

LDA SC020 
LDV P2 
DEC I 
BNE LBL1 
DEC Dl 
BNE LBL4 
JSR READ1 
DEC D2 
BNE LBL1 
JSR READ2 
JMF LBL1 



;THESE TWO INSTRUCTIONS CAUSE 
;A 6-CYCLE TIME DELAY 



.■CLICK SPEAKER AFTER PI LOOPS 
.•RESET. X-REGISTER 



;THESB TWO INSTRUCTINS CAUSE 
;A 6-CYCLE TIME DELAY 



;CLICK SPEAKER AFTER P2 LOOPS 

; RESET Y-REGISTER 

;AFTER 256 LOOPS, CHECK TOR END OF NOTE 

;END OF MELODY NOTE7 

;N0, CHECK RARM0NY NOTE 

;YES, FETCH NEXT NOTE OF MELODY 

;END OF HARMONY NOTE? 

;NO, LOOP AGAIN 

;YES, FETCH NEXT NOTE OF HARMONY 

;THEN LOOP AGAIN 



READ! LDX 
LDA 
BNE 
DEC 

LBLS DEC 
LDA 
STA 
LDA 
BNE 
DEC 

LBL6 DEC 
LDA 
STA 
BNE 
PLA 
PLA 

LBL7 LDX 
RTS 

READ2 LDY 
LDA 
BNE 
DEC 

LBL8 DEC 
LDA 
STA 
LDA 
BNE 
DEC 

LBL9 DEC 
LDA 
STA 
BNE 
PLA 
PLA 

LBL10 LDY 
RTS 



#$00 

INDX1L 

LBL5 

INDX1H 

INDX1L 

(INDX1L.X! 

PI 

INDX1L 

LBL6 

IKDX1H 

INDX1L 

(INDX1L.X) 

Dl 

LBL7 



#500 

INDX2L 

LBLt 

IHDX2H 

INDX2L 

(INDX2L) ,Y 

P2 

INDX2L 

LBL9 

INDX2H 

IJJDX2L 

(INDX2L) ,Y 

D2 

LBL10 



; DURATION OF MELODY NOTE 



;IF Dl-0, POP RETURN ADDRESS 

.-OFF STACK, SO RTS WILL END PROGRAM 



,-PITCH (WAVELENGTH) OF HARMONY NOTE 



; DURATION OF HARMONY NOTE 



J IF D2=0, POP RETURN ADDRESS 

;0FF STACK, SO RTS WILL END PROGRAM 
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The Programs 

Two programs are presented here, 
either of which can be used to play 
duets. However, the main purpose of 
the first program is to assemble the 
note tables from the data input by the 
user and to save the song on tape, while 
the second program is used only to load 
and play previously-recorded songs. 

The Note-Table Assembler 
Program 

This program provides an easy way 
to input a song, listen to it, edit it ac- 
cording to taste, and finally to save it 
on tape for later use. The song is input 
to the program through the use of 
DATA statements, which are typed in 
by the user each time the program is 
run. All such DATA statements must 
have line numbers greater than 690. 
The elements in these DATA state- 
ments will indicate the key signature 
[if any), the name and relative duration 
of each note, and the end of each part 
(melody or harmony) of the song. In 
order to facilitate the entry of these 
data, the notes are called by their 
alphabetic names (A,B,C,D,E,F,GJ and 



— — ' 
Figure 2: "Blue Bells of Scotland" 


800 


DATA G,l 


801 


DATA C1,2,B1,1,A1,1 


802 


DATA G,2,A1,1,B1,.5,C1,.5 


803 


DATA E,1,E,1,F,1,D,1 


804 


DATA C,3,G,1 


805 


DATA C1,2,B1,1,A1,1 


806 


DATA G,2,A1,1,B1,.5,C1,.5 


807 


DATA E,1,E,1,F,1,D,1 


808 


DATA C,3,G,1 


809 


DATA E,1,C,1,E,1,G,1 


810 


DATA C1,2,A1,1,B1,.5,C1,.5 


811 


DATA Bl,l,G,l,Al r l,F#,l ! 


812 


DATA G,2,A1,1/B1,1 


813 


DATA C1,2,B1,1,A1,1 


814 


DATA G,2,A1,1,B1,.5,C1,.5 


815 


DATA E,1,E,1,F,1,D,1 


816 


DATA C,3 


817 


DATA END1 


900 


DATA R,l 


901 


DATA R,1,E,1,F,1,F,1 


902 


DATA E,2,F,2 


903 


DATA G,1,C,1,D,1,F,1 


904 


DATA E,3,R,1 


905 


DATA R,1,E,1,F,1,F,1 


906 


DATA E,2,F,2 


907 


DATA G,1,C,1,D,1,F,1 


908 


DATA E,3,R,1 


909 


DATA C1,3,D1,1 


910 


DATA Al,2,F,l,G,.5,Al,-5 


911 


DATA D1,2,C1,2 


912 


DATA B1,1,D1,1,G,1,F,1 


913 


DATA E,2,F,1,F,1 


914 


DATA E,2,F,1,F,1 


915 


DATA G,1,C,1,D,1,F,1 


916 


DATA E,3 


917 


DATA END2 



converted by the program to the ap- 
propriate numerical values. The key 
signature, by default, determines 
whether a given note is to be played 
sharp, flat, or natural, but the signature 
may be overridden by appending the 
character "#" (sharp), "&" (flat), or 
"N" [natural) to the note's name. 

Notes of different octaves are in- 
dicated by a single digit appended to the 
note name. If no such digit appears, oc- 
tave (zero) is assumed (this is the 
lowest octave which can be notated). 
Thus, G3 is one octave above G2, and 
D#l is one octave above D#. The 
lowest letter-name within an octave is 
A, and the highest is G. Thus A2 is just 
a little above Gl, while G#4 and A&5 
designate the same note. A detailed 
description of the formats of the data 
elements is given below: 



1. 



Key Signature (optional): If the 
music is written in a key other than 
C, the first two data elements 
should indicate the key signature. 
The first element should consist of 
the word "SHARP" or "FLAT", and 
the second element should be a string 
consisting of the letter names (in 



any order) of the notes to be sharped 
or flatted. Example: 

730 DATA FLAT.ADBE 

2. Note Names: Each note name is an 
alphanumeric data item of the form 
XYM, where: 

X is one of the letters A, B, C, D, E, 
F, G, orR (rest)... 

Y is an optional character indicating 
sharp (#), flat (&), or natural (N). 
Any of these characters will override 
the key signature... 

M is a number from to 9, indi- 
cating which octave the note 
belongs to. (However, the range 
within one song is limited to 65 
notes, or about 5V4 octaves.) M can 
be omitted if it equals zero. 

If X equals "R", then Y and M are 
omitted. Each note name must be 
followed by its note-duration. 

3. Note Duration: This is a numerical 
quantity indicating the relative 
duration of the note that precedes it 
| the absolute duration will be 
calculated later). For example, if a 







HIMEM 
Bl 


These 
pointers are 
relative to Bl 

Melody ' 

Harmony - ~* 


Pointer to B2 (Low Byte) 


Pointer to B2 (High Byte) 


Pointer to ET (Low Bytel 


Pointer to ET 


High Byte] 


Pitc 


l 


Duration 


J ■ ■ Note 1 


Pitch 


Duration 


j- Note 2 

]_ 


i 
I 

; 


Pitch 


Duration 


I - 
] 


inoic u 
B2 


$00 


$00 


Pitch 


Duration 


1 

}- 

1 


"Note 1 
Note 2 


Pitch 


Duration 


1 

: 


Pitch 


Duration 


J 


— Note ui 
ET 


$00 


$00 


Title (First Byte) 




i 
i 

I 




Title (Last Byte) 


$0D (Carriage Return) 


Figure 3: Structure of 


Note Tables for Duets 
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quarter-note is given a duration of 1, 
then a half-note would have a dura- 
tion of 2, etc. Example: 

740 DATA F1,.5,F#1,1,R,2,BN,1.5 

4. END1: In a duet, the data element 
"END1" must follow the last note 
duration of the first part (melody) of 
the song. 

5. Second Part: Note names and dura- 
tions for the second part (harmony) 
of the song must follow "END1", in 
the format indicated in 2 and 3. The 
key signature (if any) is still in effect 
and should not be repeated here. 

6. END2: The data element "END2" 
must follow the last note duration 
of the second part (harmony) of the 
song. 

The above format applies to duets. 
There is also an option for entering and 
playing 1-part solos. To do this, enter 
key signature, note names and note 
durations for one part, as described 
above, but following the last note dura- 
tion, enter the string "ENDSOLO" as 
the last data element. This will cause 
the same tune to be played through 
both speakers. 

Running the Program 

Before running the program as 
shown, you may find it necessary to 
change the value of M in line 10. 
HIMEM will be set to this value, which 
will be the highest byte occupied by the 
note tables, plus 1 . The value shown in 
the listing is for a 32K system without 
DOS. Modify line 10 if necessary, then 
save the program on tape as shown 
(without any DATA statements) . 

Now, each time you load the pro- 
gram, type in the DATA statements ac- 
cording to the format explained above, 
remembering to give them line 
numbers higher than 690. Caution: for 
alphanumeric data, trailing blanks are 
considered to be part of the string, and 
may cause the data to be misinter- 
preted by the program. Avoid trailing 
blanks! 

After all the necessary DATA 
statements have been entered, type 
"RUN". In a few seconds, you will see 
the prompt "TEMPO,KEY?" The tem- 
po you input will be proportional to the 
length of the song, so that higher values 
will actually produce slower music. 
Notice that this is opposite from the 
usual interpretation of tempo. The 
tempo is multiplied by the relative note 
duration obtained from the DATA 
statement, the product is rounded to 





MESSAGE 


PROBABLE CAUSE 


ILLEGAL QUANTITY ERROR 


Tempo 


BAD SUBSCRIPT ERROR 


Illegal note name in DATA statec 


OUT OF DATA ERROR 


No "END2", or no "ENDSOLO" 


SYNTAX ERROR 


Bad DATA statement format; dat; 
type mismatch 



ERROR: KEY IS TOO HIGH 
ERROR: KEY IS TOO LOW 
ERROR: TEMPO IS TOO LONG 



ERROR: INSUFFICIENT MEMORY 
FOR NOTE TABLES 

WARNING: PART X IS XXX 
UNITS SHORTER THAN PART X. 
SONG WILL END EARLY. 



WARNING: DURATIONS OF SOME 
NOTES WERE ROUNDED TO THE 
NEAREST INTEGER. TUNES MAY 
NOT BE SYNCHRONIZED. 



Key would cause notes 
to be outside of 
allowable range 

Tempo * Relative Duration 25: 
for some note 

DATA statements plus note table 
take up too much memory 

The sums of the durations obtaim 
from the DATA statements do no 
match. Song will play up to the 
end of the shorter part. 

Tempo * Relative Duration does 
not equal an integer for some 
note(s). 



Table 1: Error/Warning Messages 



REM NOTE-TABLE ASSEMBLER 

1 REM 

2 REM 

10 M = 32768: REM M = SYSTEM'S CAPACITY 

20 Bl = M - 4: HIMEM: M 

30 DIM N%(65),P%(7) 

40 DEF FN HI(X) = INT (X / 256) 

50 DEF FN L0(X) = X - FN HI (X) * 256 

55 REM LOAD MACHINE LANGUAGE PROGRAM 

60 PS = "1730050031330061730060031330071730070031330081730080031330091690 

00141000003032096003032132003202240007234173017017076056003173048192 

174001003136240007234173017017" 
70 FOR I = 777 TO 830: POKE I, VAL ( MID$ (P$,3 * (I - 777) + 1,3)): NEX 



80 P$ = "0760720031730321921720030032060000032082192060020032080030320960 
03206004003208206032132003076040003162000165006208002198007198006161 
006141001003165006208002198" 

90 FOR I = 831 TO 883: POKE I, VAL ( MIDS (P$,3 * (I - 831) + 1,3)): NEX 



93 PS = "007198006161006141002003208002104104174001003096160000165008208C 
02198009198008177008141003003165008208002198009198008177008141004003 
208002104104172003003096" 

95 FOR I = 884 TO 935: POKE I, VAL ( MID$ (PS, 3 * (I - 884) + 1,3)): NEX 



115 P$ = "" 

120 N%(0) = 1:N%(1) = 

125 REM SET ISOTONIC WAVELENGTHS 

130 FOR I = 2 TO 65 

140 N%(I) = 256 / (2 " ((I - 1) / 12)) + .5 

150 NEXT I 

153 REM ABCDEFG 
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155 P%(1) = 0:P%(2) = 2:P%(3) = 3:P%(4) = 5 

156 P%{5) = 7:P%(6) = 8:P%(7) = 10 
160 E = M - FRK (0) + 200: HIMEM: E 
170 B$ = CHR$ (7) + "ERROR: " 



RESTORE : INPUT "TEMPO,KEY? ";TM,K%:L = 0:F1 = 

READ PS: IF P$ = "SHARP" OR P$ = "FIAT" THEN 680 

RESTORE :LN = 

F0RI=B1-1T0E STEP - 2 

READ P$: IF LEFTS (P$,3) = "END" THEN 370 

IF PS = "R" THEN P = 0: GOTO 330 

64) + 12 * VAL ( RIGHTS (P$,l)) + K% 



180 

190 

200 

210 

220 

230 

240 P = P%( ASC C(P$) - 

250 A$ = MIDS (PS, 2,1) 

255 IF AS = "N" THEN 310 

IF A$ = "#" THEN P 

IF A$ = "4" THEN P 

IF LN = THEN 310 

FOR J = 1 TO LN 

IF MIDS (SF$,J,1) 

NEXT 

IF P < . 1 THEN PRINT B$;"KEY IS TOO LOW": GOTO 180 

IF P > 65 THEN PRINT B$;"KEY IS TOO HIGH": GOTO 180 

READ DD:L = L + DD:DD = DD * TM:D = INT (DD + .5) 

IF D > 255 THEN PRINT B$; "TEMPO IS TOO LONG": GOTO 180 

IF D < > DD THEN Fl = 1 

REM POKE PITCH,DURATION INTO NOTE TABLE 

POKE I,N%(P): POKE I - 1,D: GOTO 390 

POKE 1,0: POKE I - 1,0 

IF LEFTS (P$,7) = "ENDSOLO" THEN B2 = B1:ET = I - 2:L2 = LI 

00 

IF LEFTS (PS, 4) = "END2" THEN ET = I - 2:L2 = L - LI: GOTO 400 
1:L1 = L 
PRINT B$;" INSUFFICIENT MEMORY" 



P + Is GOTO 310 
P - 1: GOTO 310 



LEFTS (P$,l) THEN P = P + Q: GOTO 310 



GOTO 4 



PRINT "FOR NOTE TABLE S" : HIM 



260 
270 
280 
290 
295 
300 
310 
320 
330 
340 
350 
355 
360 
370 
375 

380 

385 B2 = I 

390 NEXT I: 

EM: 

M: END 

400 POKE M - 1, FN LO(Bl - B2) : POKE M - 2, FN HI(B1 - B2) 

405 POKE M - 3, FN LO(Bl - ET) : POKE M - 4, FN HI(B1 - ET) 

410 IF LI < > L2 THEN SH = .5 * (3 - SGN (L2 - LI)): PRINT : PRINT "Wft 

RNING: PART ";SH;" IS "; ABS (LI - L2);" UNITS SHORTER": PRINT "THAN 
PART ";3 - SH;". SONG WILL END EARLY." 

420 IF Fl THEN PRINT : PRINT "WARNING: DURATIONS OF SOME NOTES WERE": PRI 
NT 

"ROUNDED TO THE NEAREST INTEGER. TUNES": PRINT "MAY NOT BE SYNCHRONI 

ZED." 

430 POKE 773, FN LO(Bl): POKE 774, FN HI(B1) 

440 POKE 775, FN LO(B2): POKE 776, FN HI(B2) 

450 PRINT : INPUT CCM$ 

460 IF CCM$ < > "GO" THEN 500 

470 INPUT "REPETITIONS? ";R 

480 FOR I = 1 TO R 

490 CALL 777: NEXT I: GOTO 450 

500 IF CGM$ = "CHANGE" THEN 180 

510 IF COX$ = "EDIT" THEN HIMEM: M: LIST 691,: END 

520 IF CCM$ < > "SAVE" THEN PRINT "WHAT?": GOTO 450 

530 J = ET - E: IF J > 255 THEN J = 255 

535 PRINT "TITLE (1-"; J;" CHARACTERS):" 

540 FOR I = ET TO ET - J STEP - 1 

550 GET P$: IF P$ = CHR$ (8) THEN 1 = 1 + 1: PRINT " "; CHRS (8); CHR$ 

(8);: GOTO 550 

555 IF P$ = CHRS (21) THEN 550 

557 IF PS = CHRS (24) THEN PRINT CHRS (92): GOTO 535 

560 PRINT P$;: POKE I, ASC (P$) : IF PS = CHRS (13) THEN 580 

570 NEXT I: PRINT : PRINT B$; "TITLE TOO LONG": GOTO 530 

580 HCME : PRINT 

590 PRINT "AFTER ADJUSTING VOLUME, PRESS 'RECORD'," 

600 PRINT "THEN HIT ANY KEY.": GET P$ 

610 HCME : VTAB 12: FLASH : HTAB 12: PRINT "«RECORDING»": NORMAL 

615 REM ADDRESS -307 IS MONITOR WRITE ROUTINE: 

620 REM LOCATIONS 60-63 POINT TO BEGINNING 

625 REM AND ENDING ADDRESS OF WRITE. 

630 POKE 6, FN LO(M - 1 - I) : POKE 7, FN HI(M - 1 - I) 

640 POKE 60,6: POKE 61,0: POKE 62,7: POKE 63,0: CALL - 307 

650 POKE 60, FN LO(I): POKE 61, FN HI (I) 

660 POKE 62, FN LO(M - 1): POKE 63, FN HI (M - 1): CALL - 307 

670 HOME : GOTO 450 

680 Q = 1: IF P$ = "FLAT" THEN Q = - 1 

690 READ SF$:LN = LEN (SF$) : GOTO 210 



the nearest integer, and the final value 
is POKEd into the note table. So, for 
best results, you should input a tempo 
which, when multiplied by the note 
duration, always yields an integer (thus 
avoiding any rounding error). In no case 
may the product of the tempo and the 
relative note duration exceed 255. A 
product of 255 will produce a note 
about 3.0 seconds long. All other dura- 
tions are proportionally shorter. 

The KEY is an integer value 
[positive, negative, or zero) indicating 
how many semitones the song will be 
shifted up or down on the isotonic 
scale. Thus, for example, a key of 22 is 
one octave (12 semitonesj higher than a 
key of 10. If the input key causes any 
note to fall outside the available range 
of 65 notes, an error message will be 
given. 

After the tempo and key have been 
input, the program begins assembling 
the note tables. As the program pro- 
cesses the DATA statements, error or 
warning messages may be given, 
generated either by the program or by 
Applesoft. These messages are describ- 
ed in detail in table 1. 

Program Commands 

After the note tables are assembled, 
you will be prompted with a question 
mark. In response to this, you may type 
one of the following commands: 

GO plays the song, in harmony and 
stereo, with as many repetitions as 
desired. (Be sure your amplifier is 
properly connected.) 

SWAP causes parts 1 and 2 to 
switch speakers. Before this com- 
mand is executed, part 1 plays 
through the Apple speaker, part 2 
through your amplifier. Another 
SWAP will restore the original 
speakers. 

CHANGE allows you to change the 
tempo and key, and reassemble the 
note tables. 

EDIT lists the DATA statements 
and ends the program, allowing you 
to modify the song. 

SAVE requests a song title, then 
saves the title and the note tables on 
tape. Since the program uses the 
GET command to input the title, 
any characters may be input, in- 
cluding colons, commas, and 
quotes. A carriage return terminates 
the input and causes recording in- 
structions to be displayed. 
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quarter-note is given a duration of 1, 
then a half-note would have a dura- 
tion of 2, etc. Example: 

740 DATA F1,.5,F#1,1,R,2,BN,1.5 

4. END1: In a duet, the data element 
"END1" must follow the last note 
duration of the first part (melody] of 
the song. 

5. Second Part: Note names and dura- 
tions for the second part (harmony) 
of the song must follow "END1", in 
the format indicated in 2 and 3. The 
key signature (if any) is still in effect 
and should not be repeated here. 

6. END2: The data element "END2" 
must follow the last note duration 
of the second part (harmony) of the 
song. 

The above format applies to duets. 
There is also an option for entering and 
playing 1-part solos. To do this, enter 
key signature, note names and note 
durations for one part, as described 
above, but following the last note dura- 
tion, enter the string "ENDSOLO" as 
the last data element. This will cause 
the same tune to be played through 
both speakers. 

Running the Program 

Before running the program as 
shown, you may find it necessary to 
change the value of M in line 10. 
HIMEM will be set to this value, which 
will be the highest byte occupied by the 
note tables, plus 1 . The value shown in 
the listing is for a 32K system without 
DOS. Modify line 10 if necessary, then 
save the program on tape as shown 
(without any DATA statements) . 

Now, each time you load the pro- 
gram, type in the DATA statements ac- 
cording to the format explained above, 
remembering to give them line 
numbers higher than 690. Caution: for 
alphanumeric data, trailing blanks are 
considered to be part of the string, and 
may cause the data to be misinter- 
preted by the program. Avoid trailing 
blanks! 

After all the necessary DATA 
statements have been entered, type 
"RUN". In a few seconds, you will see 
the prompt "TEMPO,KEY?" The tem- 
po you input will be proportional to the 
length of the song, so that higher values 
will actually produce slower music. 
Notice that this is opposite from the 
usual interpretation of tempo. The 
tempo is multiplied by the relative note 
duration obtained from the DATA 
statement, the product is rounded to 



MESSAGE 



ILLEGAL QUANTITY ERROR 
BAD SUBSCRIPT ERROR 
OUT OF DATA ERROR 
SYNTAX ERROR 

ERROR: KEY IS TOO HIGH 
ERROR: KEY IS TOO LOW 
ERROR: TEMPO IS TOO LONG 



ERROR: INSUFFICIENT MEMORY 
FOR NOTE TABLES 

WARNING: PART X IS XXX 
UNITS SHORTER THAN PART X. 
SONG WILL END EARLY. 



WARNING: DURATIONS OF SOME 
NOTES WERE ROUNDED TO THE 
NEAREST INTEGER. TUNES MAY 
NOT BE SYNCHRONIZED. 



PROBABLE CAUSE 



Tempo 

Illegal note name in DATA statemen 

No "END2", or no "ENDSOLO" 

Bad DATA statement format; data 
type mismatch 

Key would cause notes 
to be outside of 
allowable range 

Tempo * Relative Duration 255 
for some note 

DATA statements plus note tables 
take up too much memory 

The sums of the durations obtained 
from the DATA statements do not 
match. Song will play up to the 
end of the shorter part. 

Tempo * Relative Duration does 
not equal an integer for some 
note(s|. 



Table 1: Error/Warning Messages 



REM NOTE-TABLE ASSEMBLER 

1 REM 

2 REM 

10 M = 32768: REM M = SYSTEM'S CAPACITY 

20 Bl = M - 4: HIMEM: M 

30 DIM N%(65),P%(7) 

40 DEF FN HI(X) = INT (X / 256) 

50 DEF FN L0(X) = X - FN HI (X) * 256 

55 REM LOAD MACHINE LANGUAGE PROGRAM 

60 P$ = "1730050031330061730060031330071730070031330081730080031330091690 

00141000003032096003032132003202240007234173017017076056003173048192 

174001003136240007234173017017" 
70 FOR I = 777 TO 830: POKE I, VAL ( MID$ (P$,3 * (I - 777) + 1,3)): NEXT 



80 P$ = "0760720031730321921720030032060000032082192060020032080030320960 
03206004003208206032132003076040003162000165006208002198007198006161 
006141001003165006208002198" 

90 FOR I = 831 TO 883: POKE I, VAL ( MID$ (P$,3 * (I - 831) + 1,3)): NEXT 



93 P$ = "0071980061610061410020032080021041041740010030961600001650082080 
02198009198008177008141003003165008208002198009198008177008141004003 
208002104104172003003096" 

95 FOR I = 884 TO 935: POKE I, VAL ( MID$ (P$,3 * (I - 884) + 1,3)): NEXT 



115 P$ = "" 

120 N%(0) = 1:N%(1) = 

125 REM SET ISOTONIC WAVELENGTHS 

130 FOR I = 2 TO 65 

140 N%(I) = 256 / (2 * ((I - 1) / 12)) + .5 

150 NEXT I 

153 REM ABCDEFG 
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155 P%(1) = 0:P%(2) = 2:P%(3) = 3:P%(4) 

156 P%(5) = 7:P%(6) = 8:P%(7) = 10 
160 E = M - FRE (0) + 200: HIMEM: E 
170 B$ = CHR$ (7) + "ERROR: " 



180 
190 
200 
210 
220 
230 



RESTORE : INPUT "TEMPO,KEY? ";TM,K%:L = 
READ P$: IF P$ = "SHARP" OR P$ = "FLAT" 
RESTORE :LN = 
F0RI=B1-1T0E STEP - 2 



0:F1 = 
THEN 680 



READ P$: IF LEFTS (P$,3) = "END" THEN 370 

IF P$ = "R" THEN P = 0: GOTO 330 
240 P = P%( ASC C(P$) - 64) + 12 * VAL ( RIGHTS (P$,l)) + K% 
250 A$ = MID$ (PS, 2,1) 



255 
260 
270 
280 
290 
295 
300 
310 
320 
330 
340 
350 
355 

360 
370 
375 



= P + 
P - 



GOTO 310 
GOTO 310 



IF AS = "N" THEN 310 

IF A$ = "#" THEN P 

IF AS = "S" THEN P 

IF LN = THEN 310 

FOR J = 1 TO LN 

IF MID$ (SF$,J,1) 

NEXT 

IF P < . 1 THEN PRINT B$;"KEY IS TOO LOW": 

IF P > 65 THEN PRINT B$;"KEY IS TOO HIGH 1 



LEFTS (P$,l) THEN P = P + Q: GOTO 310 



GOTO 180 
1 : GOTO 180 



READ DD:L = L + DD:DD = DD * TM:D = INT (DD + 

IF D > 255 THEN PRINT B$; "TEMPO IS TOO LONG": 

IF D < > DD THEN Fl = 1 

REM POKE PITCH, DURATION INTO NOTE TABLE 

POKE I,N%(P): POKE I - 1,D: GOTO 390 

POKE 1,0: POKE I - 1,0 

IF LEFTS (P$,7) = "ENDSOLO" THEN B2 = B1:ET = 

00 
380 IF LEFTS (PS, 4) = "END2" THEN ET = I 
385 B2 = I - 1:L1 = L 

390 NEXT I: PRINT B$; "INSUFFICIENT MEMORY 1 
EM: 



• 5) 
GOTO 180 



2:L2 = LI: GOTO 4 



2:L2 = L - LI: GOTO 400 



PRINT "FOR NOTE TABLE S" : HIM 



400 
405 
410 



420 
NT 



430 
440 
450 
460 
470 
480 
490 
500 
510 
520 



M: END 
POKE M - 
POKE M - 
IF LI < 



RNING: PART ";SH;' 

PART ";3 - SH;". 

IF Fl THEN PRINT 



1, FN LO(Bl - B2): POKE M 
3, FN LO(Bl - ET) : POKE M 
> L2 THEN SH = .5 * (3 - 
IS "; ABS (LI - 



- 2, FN HI(B1 - B2) 

- 4, FN HI(B1 - ET) 
SGN (L2 - LI) ) : PRINT 
L2);" UNITS SHORTER": 



: PRINT "WA 
PRINT "THAN 



SONG WILL END EARLY." 
: PRINT "WARNING: DURATIONS OF SOME NOTES WERE": 



PRI 



540 
550 

555 
557 
560 
570 
580 
590 
600 
610 
615 
620 
625 
630 
640 
650 
660 
670 
680 
690 



"ROUNDED TO THE NEAREST INTEGER 
ZED." 

POKE 773, FN LO(Bl) : POKE 774, FN HI(B1) 
POKE 775, FN LO(B2) : POKE 776, FN HI(B2) 
PRINT : INPUT CCM$ 
IF CCMS < > "GO" THEN 500 
INPUT "REPETITIONS? ";R 
TO R 

NEXT I: GOTO 450 
"CHANGE" THEN 180 

"EDIT" THEN HIMEM: M: LIST 691,: END 
> "SAVE" THEN PRINT "WHAT?": GOTO 450 
IK J > 255 THEN J = 255 
CHARACTERS) : " 
STEP - 1 



TUNES" : PRINT "MAY NOT BE SYNCHCW 



FOR I = 1 

CALL 777: 

IF CCMS = 

IF COMS = 

IF CCMS < 
530 J = ET - E 
535 PRINT "TITLE (1-"; J;" 

FOR I = ET TO ET - J 



CHR$ (8) THEN 1=1+1: PRINT 



GET P$: IF PS = 
(8);: GOTO 550 
IF P$ = CHRS (21) THEN 550 
IF P$ = CHRS (24) THEN PRINT CHRS 
PRINT P$;: POKE I, ASC (P$) : IF P$ = 



CHRS (8); CHRS 



(92) : GOTO 535 
CHRS (13) THEN 



580 



NEXT I: PRINT : PRINT B$; "TITLE TOO LONG": GOTO 530 
HCME : PRINT 

PRINT "AFTER ADJUSTING VOLUME, PRESS 'RECORD'," 
PRINT "THEN HIT ANY KEY. " : GET P$ 

HOME : VTAB 12: FLASH : HTAB 12: PRINT "«RECORDING»": NORMAL 
REM ADDRESS -307 IS MONITOR WRITE ROUTINE: 
REM LOCATIONS 60-63 POINT TO BEGINNING 
REM AND ENDING ADDRESS OF WRITE. 
POKE 6, FN LO(M - 1 - I) : POKE 7, FN HI (M - 1 - I) 
POKE 60,6: POKE 61,0: POKE 62,7: POKE 63,0: CALL - 307 
POKE 60, FN LO(I): POKE 61, FN HI (I) 

POKE 62, FN LO(M - 1): POKE 63, FN HI(M - 1): CALL - 307 
HOME : GOTO 450 
Q = 1: IF P$ = "FLAT" THEN = - 1 
READ SF$:LN == LEN (SF$) : GOTO 210 



the nearest integer, and the final value 
is POKEd into the note table. So, for 
best results, you should input a tempo 
which, when multiplied by the note 
duration, always yields an integer (thus 
avoiding any rounding error) . In no case 
may the product of the tempo and the 
relative note duration exceed 255. A 
product of 255 will produce a note 
about 3.0 seconds long. All other dura- 
tions are proportionally shorter. 

The KEY is an integer value 
fpositive, negative, or zero) indicating 
how many semitones the song will be 
shifted up or down on the isotonic 
scale. Thus, for example, a key of 22 is 
one octave (12 semitones) higher than a 
key of 10. If the input key causes any 
note to fall outside the available range 
of 65 notes, an error message will be 
given. 

After the tempo and key have been 
input, the program begins assembling 
the note tables. As the program pro- 
cesses the DATA statements, error or 
warning messages may be given, 
generated either by the program or by 
Applesoft. These messages are describ- 
ed in detail in table 1. 

Program Commands 

After the note tables are assembled, 
you will be prompted with a question 
mark. In response to this, you may type 
one of the following commands: 

GO plays the song, in harmony and 
stereo, with as many repetitions as 
desired. [Be sure your amplifier is 
properly connected.) 

SWAP causes parts 1 and 2 to 
switch speakers. Before this com- 
mand is executed, part 1 plays 
through the Apple speaker, part 2 
through your amplifier. Another 
SWAP will restore the original 
speakers. 

CHANGE allows you to change the 
tempo and key, and reassemble the 
note tables. 

EDIT lists the DATA statements 
and ends the program, allowing you 
to modify the song. 

SAVE requests a song title, then 
saves the title and the note tables on 
tape. Since the program uses the 
GET command to input the title, 
any characters may be input, in- 
cluding colons, commas, and 
quotes. A carriage return terminates 
the input and causes recording in- 
structions to be displayed. 
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The Playback Program 

After I wrote the program just 
described (the first version of which did 
not include the SAVE command), it oc- 
curred to me that you could spend a lot 
of time inputting a masterpiece, and 
lose it all when the computer was turn- 
ed off. Of course, it's always possible to 
save the entire program, and thus 
preserve the DATA statements, but 
this can run into a lot of tape if you 
make a habit of it. Another drawback of 
this method is that every time the pro- 
gram is reloaded, the note tables have 
to be re-assembled, a process which can 
take several minutes for long songs. 
With all this in mind, I added the SAVE 
feature to the note-table assembler pro- 
gram, and wrote another program 
whose sole purpose was to load and 
play previously-recorded songs. Since 
this playback program loads note tables 
which are already assembled, we do not 
experience the delay associated with 
assembling, and of course a lot of time 
and tape is saved for anyone who wants 
to build up a library of songs. 

Running the Program 

As can be seen from the listing, line 
10 of this program is the same as line 
10 of the note-table assembler program. 
If necessary, modify this line as 
previously described before running the 
program. 

After typing "RUN", you will be 
given brief instructions for loading a 
song from tape. After the song is load- 
ed, its title will appear on the screen, 
and you will be prompted with a ques- 
tion mark. In response to the question 
mark, any of the following commands 
can be typed: 

GO plays the song. Same as the GO 
command described earlier. 

SWAP switches the speakers. Same 
as the SWAP command described 
earlier. 

COPY allows you to copy the note 
tables to another tape. Similar to 
the SAVE command of the other 
program, but does not request a new 
song title. 

LOAD allows you to load and play 
another song from tape. 

It should be noted that there are no 
CHANGE or EDIT commands here; 
this is a "read-only" type program. 
When running the first program, then, 
you should be sure the tempo and key 
are adjusted to their most pleasing 
values before SAVEing the song. 



REM PLAYBACK PROGRAM 

1 REM 

2 REM 

10 M = 32768: REM M = SYSTEM'S CAPACITY 

15 REM LOAD MACHINE LANGUAGE PROGRAM 

20 PS = "173005003133006173006003133007173007003133008173008003133009169 

0014100000303209600303213200320224000723417301701707605600317304819 

174001003136240007234173017017" 
30 FOR I = 777 TO 830: POKE I, VAL ( MID$ (P$,3 * (I - 777} + 1,3)): NE: 

40 P$ = "076072003173032192172003003206000003208219206002003208003032096C 
03206004003208206O32132003076040003162O001650062080O2198OO7198OO6163 
006141001003165006208002198" 

50 FOR I = 831 TO 883: POKE I, VAL ( MID$ (PS, 3 * (I - 831) + 1,3)): NE) 

60 PS = "007198006161006141002003208002104104174001003096160000165008208( 
021980091980081770081410030031650O82O80021980091980O8177008141OO40O: 
208002104104172003003096" 

70 FOR I = 884 TO 935: POKE I, VAL ( MID$ (PS, 3 * (I - 884) + 1,3)): NE> 



80 

90 

100 

110 

120 

130 

140 



= INT (X / 256) 
= X - FN HI(X) * 
M - 4 



DEF FN HI(X) 

DEF FN LO(X) = X - FN HI (X) * 256 
HIMEW: M:E1 
HOME : PRINT 
PRINT "AFTER ADJUSTING VOLUME, PRESS 'PLAY'," 

PRINT "THEN HIT ANY KEY.": GET P$ 
SHLOAD : REM LOAD NOTE TABLES 
150 B2 = Bl - ( PEEK (M - 1) + 256 * PEEK (M - 2)) 
170 T = Bl - ) PEEK (M - 3) + 256 * PEEK <M - 4)) 
180 HCME : PRINT : PRINT "TITLE:": PRINT 
190 FOR I = T TO STEP - 1 

200 PRINT CHR$ ( PEEK (I));: IF PEEK (I) = 13 THEN 215 
210 NEXT 
215 ET = I 
217 REM LOAD BEGINNING ADDRESSES OF NOTE TABLES 

POKE 773, FN L0(B1): POKE 774, FN HI(B1) 

POKE 775, FN L0(B2): POKE 776, FN HI(B2) 

PRINT : INPUT CCMS 

IF CCMS < > "GO" THEN 280 

INPUT "REPETITIONS? ";R 

FOR I = 1 TO R: CALL 777: NEXT I: GOTO 240 

IF CCMS = "LOAD" THEN 100 

IF CCMS < > "SWAP" THEN 330 

POKE 819,80 - PEEK (819): POKE 835,80 - PEEK (835) 

GOTO 240 

IF CCMS < > "COPY" THEN PRINT "WHAT?": GOTO 240 

POKE 6, FN LO(M - 1 - ET) : POKE 7, FN HI(M - 1 - ET) 

POKE 60,6: POKE 61,0: POKE 62,7: POKE 63,0 

HOME : PRINT : PRINT "AFTER ADJUSTING VOLUME, PRESS 'RECORD'," 

PRINT "THEN HIT ANY KEY.": GET AS .,«».», 

HCME : FLASH : VTAB 12: HTAB 12: PRINT "«RECORDING»" : NORMAL 

CALL - 307: REM WRITE-TO-CASSETTE ROUTINE 

POKE 60, FN LO(ET): POKE 61, FN HI(ET) 

POKE 62, FN LO(M - 1): POKE 63, FN HI (M - 1) 

CALL - 307: HCME : GOTO 240 



220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 



A Sample Song 

In figure 2, the DATA statements 
for a short song are given. This is a folk 
song entitled "Blue Bells of Scotland." 
The recommended tempo and key for 
this song are 30, 20. These DATA 
statements illustrate several tech- 
niques which come in handy when 
you're inputting a song: 

1. Input one measure per DATA 
statement. This way, if you get a warn- 
ing that the two parts are not of the 
same length, you can simply check 



each DATA statement until you fi 
the measure that doesn't "add up 
This technique also helps you to rela 
the DATA statements to the she 
music. 

2. Choose note durations whi 
will take the least amount of typing, 
this example, quarter notes a 
represented by 1, and eighth notes 1 
.5. If a song contains a preponderance 
eighth notes, on the other hand, 
might be wiser to represent eigh 
notes by 1, and quarter notes by 2, eti 
so that you would not have to type 
(Continued on page i 



22 



MICRO - The 6502/6809 Journal 



No.37-June19£ 




CONTINENTAL SOFTWARE 
THE APPLE SOURCE. 



For Apple owners only. Thor- 
oughly tested, well documented 
programs for business and pleas- 
ure. All written by professionals. 
Each checked out carefully by 
experts in its field. 

HYPERSFACE WARS 

2 GAMES FOR THE PRICE OF 1 $29.95 

48K Trek. Stardate 3421 . 

The Terraunion is being attacked. 

You command United Starship Excali- 

bur. Your mission: destroy the deadly 

Klepton invasion force. Four levels, 

Novice to Master. 

3-D Space Battle. Use your on-board^ 
scanners to search for alien ships in hi- 
res three-dimensional space. Destroy 
as many aliens as you can before you 
run out of fuel or your ship is destroyed. 
Hi-res graphics. Req. 48K, Applesoft in 
Rom+1 disk drive. Dos. 3.2 or 3.3. 

L.A. LAND MONOPOLY $29.95 

Bankrupt your opponents while becom- 
ing the richest player in the game. Buy, 
sell, rent and trade to accumulate the 
most cash and property. Two to six may 
play. Computer is banker. Create your 
own special version using streets in • 
your own town. 

Hi-res graphics. Req. 48K, Applesoft 
in Rom+1 disc drive. Dos. 3.2 or 3.3. 

HOME MONEY MINDER $34.95 

Complete home financial system com- 
bines an excellent Home Checkbook 
Program with Budgeting. Transactions 
by month by budget category. Bank 
reconciliation. Budget for year. Total 
expenses compared monthly and year- 
to-date. Plus much more. 
Req. 48K, Applesoft in Rom, 1 disk 
drive +printer. Avail, in Dos. 3.3. 

THE MAILROOM $34.95 

Stores up to 750 names per disk. Prints 
master lists and labels 1, 2 or 3 across. 
Sorts in 5 seconds. Sort on any of 12 
items, search any sorted item in 10-20 
seconds maximum. Easy editing, cus- 
tomized inputs. 

Req. 48K, Applesoft in Rom, 1 disk y 
drive+printer (132 column capability 
needed to print Master List.) in Dos. 3.3. 
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THE COMPUTER PROGRAMMED 
ACCOUNTANT FOUR MODULES 

Buy all four now — or add as you 
expand $175 each ($250 after 6/1/81) 

The first programs for your Apple that 
your accountant will like as; much as 
you do. Nobody makes it better — or 
easier to use — than Continental Soft- 
ware. Simple step-by-step instructions. 
Excellent error checking. Modules can 
be used individually, or integrated into 
a complete Accounting System. 
Manuals only: just $15 each. 

CPA1 GENERAL LEDGER,, 

True double entry bookkeeping with 
complete, accurate audit hails show- 
ing the source of each entry in the 
general ledger. Concise, meaningful 
reports generated include Balance 
Sheet, Profit & Loss Summary, Trial 
Balance and Complete Journal Activity 
Report. Reports show monthly, year-to- 
date and last year monthly + YTD for 
comparison. Custom charting feature 
includes hi-res- plotting of one or more 
accounts. 

CPA2 ACCOUNTS RECEIVABLE 

Prints invoices on available custom 
i forms or on plain paper. Back orders 
■ and extensions computed. Issues state- 
ments for all customers, one or more 
customers, or only those with current, 
30-, 60-, 90- or 150-day balances. 
Maintain up to 300 customers. Custom- 
ized journals. Allows simulation of 
manual special journal entries. Posts to 
General Ledger. Prints aging report to 
150 days. Also prints customer lists 
and labels. 

CPA3 ACCOUNTS PAYARLE 

Prints checks to vendors and non 
vendors on available pre-printed 
checks or plain paper. Each check stub! 
shows invoice(s) paid, discounts taken,, 
net paid. Prints Purchases and Cash 



CONTINENTAL 



12101 Jefferson Blvd., 
Culver City, CA 90230 




MICRO - The 6502/6809 Journal 



Disbursement Journals. Customized 
journals. Allows' simulation of manual 
special journal entries. Prints Aging 
Report to 150 days, vendor list and 
labels and even a Cash Requirements 
Report. Posts to General Ledger. 

CPA4 PAYROLL 

Maintains personnel records for as 
many as 100 employees. Quarter-to- 
date and year-to-date earnings and 
deduction records. Employees are 
departmentalized and designated 
hourly or salaried. Prints complete 
Payroll Checks, 941 information, W-2s, 
State of California DE-3 information. 
Prints Payroll Journal and posts to 
General Ledger. 

These are just some of the fea- 
tures of each CPA module. All require 
48K, Applesoft in Rom, Dos. 3.3, 2 disk 
drives +printer. 

At your local dealer or fill out and 

mail today. Phone for immediate 

delivery. 

■>■■■■■■■■■■ 

> OK, I'LL BYTE. ; 

* Send me these revolutionary 

5 programs: 2 

■ □ Hyperspace Wars . . . $ ra 

□ L.A. Land Monopoly. 

H □ Home Money Minder m 

B □ TheMailroom pi 

" □ CPA1 General " 

■ Ledger 8 

S □ CPA2 Accts.Rec. .. 1 

m □ CPA3 Accts. Pay. . . " 

■ □ CPA4 Payroll ■ 

1 No.C.O.D.s Subtotal § 

Cal. res. add 6% _ 

TOTAL ■ 

Name H 

Address m 

pity State Zip " 

n ard No Exp 1 

M16/81 ^\ I 

SOFTWARE^! 

(213)371-5612 \^J I 
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(Continued fiom page 22) 

so many decimal points. This would 
simply require a corresponding adjust- 
ment in the TEMPO when the program 
is run. 

3. Number the DATA statements 
so that a measure in the melody can be 
easily related to the corresponding 
measure in the harmony. In the exam- 
ple, DATA statements of corresponding 
measures have line numbers separated 
by 100. 

The Applesoft programs described 
provide a convenient method for 
transferring a song from sheet music to 
the computer. However, the assembly 
language routine can be used in- 
dependently, as long as note tables are 
created, and the pointers to the begin- 
nings of the note tables are initialized. 
Thus it is possible to experiment with 
more exotic kinds of music, using all 
256 wavelengths instead of just the 65 
to which my note-table assembler is 



limited. CALL 777 will start the song 
playing. If the song is interrupted (as 
with a RESET), CALL 840 will cause it 
to pick up where it left off. 

When you create the note tables 
"by hand", (without the aid of the 
note-table assembler program), follow 
the structure illustrated in figure 3, 
POKEing the first note into the highest 
memory location, and working your 
way down. The first pointer |decimal 
locations 773,774) should be set to the 
location of the first pitch of the first 
part, plus one. Similarly, the second 
pointer (decimal locations 775,776) 
should be set to the location of the first 
pitch of the second part, plus one. In 
the case of solos, the first part is the 
second part, so both pointers are set to 
the same location. By judicious place- 
ment of these pointers, you can play 
duets, play solos, create a short delay 
between the two speakers for an 



"echo" effect, or even "listen" 
computer's ROM. For another in 
ing effect, execute the foil 
instruction: 

POKE 835,80 - PEEK(835) 

Then, when you do a CALL 777, 
parts of the song will be sent th 
the same speaker. This will provi 
excellent demonstration of why I 
to use two speakers instead of on 

Whether you use the ma 
language routine independently 
with the programs described in tt 
tide, or within your own BASIC 
grams, there is plenty of room fc 
perimentation, and I will be anxic 
hear about any enhancements oi 
gestions from readers. In any c; 
think you will agree that two voio 
at least twice as good as one. 

AM 



Don't buy Apple Software 



■ 




until you read this book. 



First check The Book— the one complete critical analysis of most Apple 
Software available. Games, Educational, Business, Utility programs and 
more. Each comprehensively rated on 11 separate points. Each reviewed by 
an expert in its field. Just $19.95. 

Now you can compare and get more for your software dollar. Does the 
program you need exist? How good is it? Which software vendors offer the 
best support? Find out all this and much more. 

MasterCard & Visa accepted. Fill out and mail today or call for shipment. 



ADDRESS _ 
CITY 



-STATE _ 



_2IP_ 



CARD NUMBER^ 



_EXP. 



Calif, residents add 6% 



16720 HAWTHORNE BLVD., LAWNDALE, CA 90260. (213) 371-4012. 



TheBookCompany 



M16/81 
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New Publications 



Mike Rowe 
New Publications 
p 0. Box 6502 
Chelmsford, MA 01824 

General 6809 

Using Microprocessors and Micro- 
computers: The 6800 Family by Joseph 
D. Greenfield and William C. Wray. John 
Wiley & Sons, 605 Third Avenue, New 
York, New York 10158, 1981, xiv, 460 
pages, 7¥t x 9¥i inches, hardbound. 
ISBN: 0-471-02727-8 $22.95 

This textbook for electronic technology 
and engineering students explains the 
uses and operation of the 6800 family of 
microcomputer components. Although 
only a few pages are devoted specifically 
to the 6809, the authors' comments are 
noteworthy: "The newer more power- 
ful microprocessors, like the 6809, 
seem to be destined to replace the 6800 
in new designs in the coming years.... 
A thorough introduction to the most 
promising of these microprocessors, 
the 6809, is presented so that the stu- 
dent may understand its advantages 
and incorporate it in new designs." 



General 6502 

Beyond Games: System Software for 
Your 6502 Personal Computer by Ken 

Skier. BYTE/McGraw-Hill, Book Divi- 
sion (70 Main Street, Peterborough, 
New Hampshire 03458), 1981, iv, 434 
pages, diagrams and listings, 7)4 x5 
3/16 inches, paperbound. 
ISBN: 0-07-057860-5 $14.95 

This book introduces newcomers to 
assembly-language programming in 
general, and of the 6502 in particular, 
and presents software tools for use in 
developing assembly-language pro- 
grams for the 6502. The book's soft- 
ware runs on an Apple n, an Atari 400 
or 800, an Ohio Scientific (OSI) 
Challenger 1-P, or a PET 2001. The 
author claims that with proper in- 
itialization of the System Data Block, 
the software should run on any 
6502-based computer equipped with a 
keyboard and a memory-mapped, 
character-graphics video display. 



CONTENTS: Introduction; Your Com- 
puter; Introduction to Assembler; Loops and 
Subroutines; Arithmetic and Logic; Screen 
Utilities; The Visible Monitor; Print 
Utilities; Two Hexdump Tools; A Table- 
Driven Disassembler; A General MOVE 
Utility; A Simple Text Editor; Extending 
the Visible Monitor; Entering the Software 
Into Your System. Appendices: A. Hex- 
adecimal Conversion Table; ASCII 
Character Codes; 6502 Instmction Set — 
Mnemonic List; 6502 Instruction Set — Op- 
code List; Instruction Execution Times; 
6502 Opcodes by Mnemonic sind Addressing 
Mode. B. The Ohio Scientific Challenger 
1-P; The PET 2001; The Apple II; The Atari 
800. C. Screen Utilities; Visible Monitor 
[Top Level and Display Subroutines); Visi- 
ble Monitor (Update Subroutine); Print 
Utilities, Two Hexdump Tools, Table- 
Driven Disassembler (Top Level and Utility 
Subroutines); Table-Driven Disassembler 
(Addressing Mode Subroutines); Table- 
Driven Disassembler (Tables); Move 
Utilities; Simple Text Editor [Top Level and 
Display Subroutines); Simple Text Editor 
(EDITTT Subroutines); Extending the Visi- 
ble Monitor; System Data Block for the 
Ohio Scientific C-1P; System Data Block for 
the PET 2001; System Data Block for the 
Apple II; System Data Block for the Atari 
800. D. Screen Utilities; Visible Monitor 
(Top Level and Display Subroutines); Visi- 
ble Monitor [Update Subroutine); Print 
Utilities; Two Hexdump Tools, Table- 
Driven Disassembler (Top Level and Utility 
Subroutines); Table-Driven Disassembler 
(Addressing Mode Subroutines); Table- 
Driven Diassembler (Tables); Move 
Utilities; Simple Text Editor, Extending the 
Visible Monitor. E. Screen Utilities; Visible 
Monitor (Top Level and Display 
Subroutines); Visible Monitor (Update 
Subroutines); Print Utilities, Two Hex- 
dump Tools; Table-Driven Disassembler 
(Top Level and Utility Subroutines); Table- 
Driven Disassembler (Addressing Mode 
Subroutine); Table-Driven Disassembler 
(Tables); Move Utilities; Simple Text 
Editor; Extending the Visible Monitor; 
System Data Block for the Ohio Scientific 
C-1P; System Data Block for the PET 2001; 
System Data Block for the Apple II; System 
Data Block for the Atari 800. Index. 



Micro Chart: 6502 (65XXJ, Micro- 
processor Instant Reference Card by 

James D. Lewis (Micro Logic Corp., 
P.O. Box 174, Hackensack, New Jersey 
07602), 1980: one 8 W-x -11-inch 
plastic card, 2-color, 2-sided, 4-hole 
punched. 

$5.95 
(includes $1.00 for shipping) 

This sturdy, plastic sheet for program- 
mers, engineers, and students clearly 
and concisely lists significant and fre- 
quently referenced 6502 data. 



CONTENTS: Side I— Hex to Instruction 
Conversion; Memory Map; Effect on Flags; 
Status Flags; Interrupts; Addressing Modes; 
ASCII Character Set; Hex and Decimal Con- 
version; 6502 Pins; Registers; Unsigned 
Comparisons; Abbreviations; Miscellane- 
ous. Side II— Instruction Set; Instructions 
Notes; Shift Instructions; Added Cycle 
Time ; Assembler Symbols. 



Apple 

MICRO/Apple, Volume 1, edited by 
Ford Cavallari. MICRO/Apple Series 
(ISSN: 0275-3537). Micro Ink, Inc. (34 
Chelmsford Street, P.O. Box 6502, 
Chelmsford, Massachusetts 01824), 
1981, 224 pages, listings and diagrams, 
6x9 inches, cardstock cover with 
Wire-o binding. The inside back cover 
has a pocket containing a floppy disk. 
ISBN: 0-938222-05-8 $24.95 

(Including floppy disk] 

This first volume of a new series on the 
Apple Computer contains 30 articles 
selected from MICRO, The 6502 Jour- 
nal, 1977-1980, updated by the authors 
or MICRO'S staff. Introductory mater- 
ial has been added and the 38 programs 
provided have been re-entered, listed, 
tested, and put on diskette (13-sector 
DOS 3.2 format, convertible to DOS 
3.3). 

CONTENTS: Introduction. BASIC Aids (4 
articles); I/O Enhancements (4 articles); 
Runtime Utilities (4); Graphics (5); Educa- 
tion (4); Games (4); Reference (5). Language 
Index; Author Index (with biographies] Disk 
Information. 



General Microcomputer 

IEEE Micro is a new quarterly which 
began publication in February 1981. It 
is published by the IEEE Computer 
Society (10662 Los Vaqueros Circle, 
Los Alamitos, California 90720). It 
covers microcomputer design and appli- 
cations and is edited for the practicing 
hardware and software engineer em- 
ployed in design and application in 
areas such as communication; process 
control; consumer electronics; medi- 
cine; energy management; data acquisi- 
tion; transportation; test, measure- 
ment, and instrumentation; navigation 
and guidance; military electronics; 
small business; microprocessor design 
and standardization; and education. An 
annual subscription to IEEE Micro is 
$8.00 in addition to society member 
dues ($14.00) or $23.00 for non- 
members. 



(Continued on page 39) 
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Serendipity 
Math Tools 
|br your 
* pple II 






INTER-STAT offers you a full range of interactive statistical 
analysis techniques, from averages and medians to binomial 
and poisson distributions, correlation coefficients and one- and 
two-way analysis of variance. $169. 

ADVANCED MATH ROUTINES, is the mathematical tool kit 
for common, yet complex numerical problems. Routines include: 
linear regression, matrix operations, numerical calculus, 
differential equations and data set recall for iterative calculations 
$ 1 69. 

Thoroughly tested, well documented and easy to master, each 
package includes a 30+ page self-teaching manual. 
Serendipity's complete line of software solutions for business, 
education and professional applications are available at your 
local Computerland or Apple dealer. 
For a free brochure, or to order direct contact Serendipity 
Systems, 225 Elmira Road, Ithaca. NY 14850. 
Phone 607-277-4889. Visa and MC accepted. 

'"Apple Computer 



SERENDIPITY SYSTEMS 



* SOFTWARE FOR OSI 

-{X VIDEO GAMES 1 

>j Three Games. Head-On is like the popular arcade game 

>* Battle is a tank game for two to four. Trap! is an enf 

>j blockade style game. 

Jy VIDEO GAMES 2 

>* Three games. Gremlin Hunt is an arcade-style game for 

>r three. Gunfight is a duel of mobile artillery. Indy is a race 

^ for one or two. 

>* ADVENTURE: MAROONED IN SPACE 

Jy An adventure that runs in 8K! Save yourship and yourse 
>* destruction. 

-&■ DUNGEON CHASE 

jy A real-time video game where you explore a twenty 
t* dungeon. 

"V 1 BOARD GAMES 1 

>j Two games. Mini-gomoku is a machine language vers 

^ five stones gomoku. Cubic is a 3-D tic-tac-toegame. Bot 

->j graphics. 

Jj DISASSEMBLER 

Use this to look at the ROMs in your machine to see 

-fj makes BASIC tick. Reconstruct the assembler source cc 

. machine language programs to understand how they 

■yl Our disassembler outputs unique suffixes which identii 

j^ addressing mode being used, no other program has th 

. SUPER! BIORHYTHMS 

>v A sophisticated biorhythm program with many ur 
> features. 

»*# 

W C1 SHORTHAND 

f Use only two keys to enter any one of the BASIC comm 
\ Jfi A or keywords. Saves much typing when en! 
^H^^Mli P r0 9''ams. Written in machine language. 

^^^^f^Wm Fof atl BASIC-m-ROM systems Selected programs available 
B^V W on disk Color and sound on video games 

TS*K Send for FREE catalog ■ 

J^Ci DIOM SOFTWARE ASSO 

■V^Vy IT I \J I II -147 Main St. Ossining, NY 10 



I 



"SPECIAL INTRODUCTORY OFFER" 
Programmable Character Generator Board $89.95 

You can use OSI's characters or you can make your 
own. Imagine you can now do true high resolution 
graphics 512 x 256 dots in the 64 x 32 screen format. 
And ail under your control! 

Other mods available — send for catalog. 

SOFTWARE (with Documentation) 
PC Chess V1 .9 $14.95 

Play Chess against your computer! 
Helicopter Pilot: (64 CHR Video Only) $ 8.95 

An Excellent Graphics Program! 
Golf Challenger $14.95 

From 1 to 4 players. Play a round of golf on your 18 hole 
golf course. One of the best programs I have ever seen! 
You can even design your own course. Comes with full 
documentation (14 pages). 

Two Very Intricate Simulations! 
Wild Weasel H:.You operate a Sam Missile base during a 
Nuclear War. Not as easy as you think! You must 
operate in a three dimensional environment. 
Failsafe II: The shoe is on the other foot! Here you are in 
the attacking bomber and you must penetrate deep into 
enemy territory. Can you survive? An extremely complex 
electronic warfare simulation! SPECIAL: both for 19.95 



VISA 



MASTER CHARGE 



Hardware: C1 P Video Mod: Makes your 600 Video evi 
bit as good as the 4P and 8P. Gives 32/64 CHR/Line w 
guardbands 1 and 2 Mhz. CPU clock with 300, 600 a 
1200 baud for Serial Port. Complete Plans $19. 

KIT(Hardware and Software) $39.95 
Installed: 32CHR — $79.95, 64CHR-$89.95 
Extra K of Video RAM for 64CHR not included! 
Set of 3 ROMs available $75.00 
C1P Sound Effects Board: Completely programmabl 
For the discriminating hobbiest, the best board on t 
market for creating sound and music. Can be interru 
driven so that you can use it for gaming purposes. H; 
on board audio amp, 16 bit interval timer, 128 Bytes 
RAM and two 8 bit parallel I/O Ports. 
Assembled and tested $89.95 Bare Board $39.< 

Both include Prog. Manual and Sample Software. 

C1P HI Speed Cassette Kit: Gives a reliable 300, 60 
and 1200 Baud. No symmetry adjustments — the ide 
fix for OSI's cassette interface. Easily implemented i 
30 minutes. Will save you time and money even the fin 
night you use it! $12.G 

Many, many more. Send for Catalog with free prograr 
(Hard Copy) and BASIC Memory Map. $1.00. Tw 
locations to serve you: 

Progressive Computing 

3336 Avondale Court, Windsor, Ontario 

Canada, N9E 1X6 

(519) 969-2500 

or 

3281 Countryside Circle, Pontiac TWP, Ml 48057 

(313) 373-0468 
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A C1P Dump Utility 



This article describes a 
debugging tool for machine 
language and BASIC programs. 



Francois Faguy 

P.O. Box 86 

L'lslet-sur-mer 

Quebec, Canada GOR 2B0 



You have your C1P, have tried a few 
simple BASIC programs and want to get 
into more serious usage. You read 
magazines like MICRO and see all 
those great programs for Microsoft 
BASIC, as implemented for the Apple, 
PET or TRS-80 computers. They 
should run on your C1P since they use 
the same BASIC, but as soon as pro- 
grams make use of machine-dependent 
features or BASIC flags and pointers, 
they don't work. The reasons are: 

1. Although all these computers 
(and many more) use the same BASIC 
interpreter, they don't use the same 
version and release. 

2. Microsoft 8K BASIC is only a 
BASIC interpreter. The I/O support 
routines are the responsibility of the 
system manufacturer. 

3. Manufacturers add extensions to 
Microsoft BASIC. 

4. All these systems include some 
kind of a monitor program; but they are 
all very different. 

I wanted to use the technique 
discussed in Virginia Lee Brady's arti- 
cle (MICRO 27:7) for a program I am 
writing. I used the monitor to dump 
some of the page zero locations discuss- 
ed and found that they did not match. 
So I tried dumping contiguous loca- 
tions with the monitor. I wanted to 
check if the difference was due to a re- 
organization of work areas in page zero 
between OSI Microsoft BASIC Version 
1.0, revision 3.2 and the Applesoft Ver- 
sion of Microsoft BASIC. But it could 
take years to find what I was looking 



for, dumping one byte at a time, and us- 
ing the monitor. So I wrote the Dump 
program discussed in this article to get 
a better picture of the problem 

The Dump program is designed to 
be loaded at the high-end of RAM, 
where it can stay as long as the 
machine is powered-up, and as long as 



you enter the right memory size when 
you cold start. It uses 359 bytes (167 
hex) . On my 8K system, I set the start 
address to $1E00. If you wish to use 
Dump on a larger system, change the 
address in line 50 (listing 3) to the 
desired origin value and re-assemble 
the program. 



Listing 1 



Listing 2 



10 REM THIS PROGRAM COPIES 

20 REM THE LOADER FROM 

30 REM THE OSI ASM/EDIT TAPE 

100 DIM A$ (1000) 

200 INPUT "READY INPUT" ;A$ 

205 REM SET LOAD MODE 

210 POKE. 515, 255 

220 FOR I = TO 239 

230 INPUT A$(I) 

240 NEXT I 

245 REM CLEAR LOAD MODE 

250 POKE 515,0 

260 INPUT "READY OUTPUT" ;A$ 

265 REM SET SAVE MODE 

270 POKE 517,255 

280 FOR I = TO 239 

290 PRINT A$(I); CHR$ (1.3); 

300 NEXT I 

305 REM CLEAR SAVE MODE 

310 POKE 517,0 



10 

20 

30 

40 

50 

60 

80 

90 

100 

110 

120 
130 
140 
150 



REM THIS PROGRAM WRITES 

REM THE START ADDRESS 

REM OF A MACHINE LANGUAGE 

REM PROGRAM AT THE END OF 

REM A SELF-LOADING/AUTO-START 

REM OBJECT TAPE 

INPUT "ENTER START ADDR";A$ 



A$ = "$" + A$ 

INPUT "READY OUTPUT" ;A$ 

REM SET SAVE MODE 

POKE 517,255 

PRINT A$ 

REM CLEAR SAVE MODE 

POKE 517,0 



No. 37 -June 1981 



MICRO - The 6502/6809 Journal 



27 



Installation Procedure 

Dump is too big to be POKEd with a 
BASIC program. It is preferable to use 
an object tape. The OSI Assembler/ 
Editor will generate an object tape, but 
you need a loader. OSI does not tell 
you, but they give you a loader,- you can 
use the Assembler/ Editor check-sum 
loader to load your object tape. Listing 
1 is a BASIC program that will copy the 
loader from OSI Assembler/Editor tape 
| the input tape] to your object tape (the 
output tape). 

Once the loader is on the object 
tape, load the Assembler/Editor and in- 
put the Dump program (listing 3). Note 
that comment lines in listing 3 do not 
have line numbers. This is because the 
source file of the 8K version is too 
small to hold the Dump program with 
the comments. So do not input any 
comments if your machine has only 8K. 

Next, assemble the program with 
" Al " to ensure that there are no errors. 
Then save the source listing as this can 
be useful if you wish to customize 
Dump later. While still in save mode, 
put the object tape in the cassette 
recorder, wind it past the end of the 
loader, and type "Al", ready the 
recorder for writing and hit RETURN. 
This will write the object program on 
the tape. 

If you wish a self- starting tape, the 
BASIC program in listing 2 will write 
the start address in the format required 
by the loader at the end of the object 
file on the tape. For the 8K version, 
reply 1E00 to "ENTER START 
ADDRESS". If you do not write a start 
address on the object tape, use the 
BREAK key to exit from the loader. 
Typing M1E00G will run Dump. 

Using Dump 

To load the program, hit BREAK, 
type "ML", put the object tape in the 
recorder, and start the recorder. Once 
the program is loaded, it will self-start. 
The screen is first cleared and three 
prompts are displayed at the bottom of 
the screen. You can: 

1 . Enter the 4-digit hexadecimal ad- 
dress of where the dump is to start and 
64 bytes will be displayed [see figure 1). 

2. Hit RETURN to dump the next 
higher 64 bytes. If RETURN is used the 
first time round, the dump will start at 
$0000. 

3. Enter "R", to cause Dump to ex- 
ecute a RTS instruction. 



Listing 3 










0800 


.»«** 


»*** * 


********************** 


C'800 


; * 






* 


C800 


,-* OSI C1P 


MEMORY DUMP PROGRAM * 


C800 


. * 






* 


0800 


. * 


BY 


FRANCOIS FAGUY 


* 


0800 


. * 






* 


0800 


.********* 


***************** 


* * * ** 


0800 


;* 








0800 


;DUMPS 64 


BYTES OF MEMORY ON THE SCREEN 


0800 


; IN BOTH 


HEX AND ASCII 




0800 










0300 


,-CAM BE RUN FROM THE MONITOR: M 1E00 G 


0300 


■ OR AS A 


USR(X) FUNCTION FROM BASIC 


0800 










0300 


DLOC 


EPZ 


$14 


;CURRENT DISPLAY LOCATION 


0800 


DAEDR 


EPZ 


S16 


,-POINTER TO CURRENT ADDRESS 


0800 










0000 


3ASIN 


EQU 


$FFEB 


,-BASIC KEYBOARD INPUT ROUTINE 


Oil 00 


DSPLY 


EQU 


53510 


; FIRST BYTE USED IN VIDEO RAM 


OflOO 










1E00 




ORG 


$1E00 




1100 




OBJ 


$800 




1E00 










1E00 


CLEAB 


THE 


SCREEN 




1EO0 










1E00 A200 DUMP 


LDX 


#SO0 


;INIT X REG. 


1E02 A920 




IDA 


»$20 


•SPACE 


1E04 9D00D3 CLEAR 


STA 


$D30O,X 


•FILL VIDEO RAM WITH SPACES 


1E07 9D00D2 




STA 


$D200,X 




1E0A 9DO0D1 




STA 


$D10O,X 




1EDD 9DO0D0 




STA 


SD000,X 




1E10 E8 




INX 






IE 11 D0F1 




BNE 


CLEAR 




1E.13 










1EL3 


DISPLAY PROMPT MESSAGES 




1E13 










1E13 A011 




LDY 


#17 




1EI.5 B9331F MSG10 


LDA 


MSG1,Y 




1E18 9926D3 




STA 


DSPLY+544.Y 




1E1B 88 




DEY 






1E1C 10F7 




BPL 


MSG10 




1E1E A011 




LDY 


♦ 17 




1E20 B9451F MSG20 


LDA 


MSG2,Y 




1E23 994603 




STA 


DSPLY+576.Y 




1E26 88 




DEY 






1E27 10F7 




BPL 


MSG20 




1E29 A010 




LDY 


#16 




1E2B B9571F MSG30 


LDA 


MSG3,Y 




1E2E 996603 




STA 


DSPLY+608,Y 




1E31 88 




DEY 






1E32 10F7 




BPL 


MSG30 




1E34 










1E3« 


GET THE START ADDRESSS FROM THE KEYBOARD 


1E3! 










1E3.I A2FC C 


ET 


LDX 


#252 


INIT REG. X FOR 4 CHAR. 


1E36 20EBFF C 


ET05 


JSR 


BASIN 


READ A CHARACTER 


IE 39 C90D 




CMP 


#S0D 


<CR> ? 


1E3SI F046 




BEQ 


DUMP05 


YES, DUMP NEXT 64 BYTES 


1E3I) C952 




CMP 


#'R' 




1E3F D001 




BNE 


GET08 > 


NO, CARRY ON 


1E41 60 




RTS 






1E4 2 9DCACF C 


ET08 


STA 


DSPLY-316,X 


DISPLAY THE CHARACTER 


1E4E C930 




CMP 


#'0' 




1E47 30ED 




BMI 


GET05 


<0 = ERROR 


1E49 C93A 




CMP 


t'9'+l 




1E4B 300A 




BMI 


GET10 


NO = GOOD CHARACTER 


1E4D C941 




CMP 


»'A' 




1E4F 30E5 




BMI 


GET05 


<'A" - ERROR 


1E51 C947 




CMP 


I'F'+l 




1E53 B0E1 




BCS 


GET05 


>'F' = ERROR 


1E55 E906 




SBC 


#$06 


( , A'-'9'-2) — CONVERT HEX DIGITS 


1E57 290F G 


ET10 


AND 


t$0F 


CONVERT HEX DIGITS 0-F 


1E59 9D2B1E 




STA 


ADDRIN-252,X 


SAVE HEX DIGIT 


1E5C E8 




INX 




CHECK FOR 4 CHARACTERS 


1E5D D0D7 




BNE 


GET05 


NEXT CHARACTER 


1E5F 










1E5F 


PACK 


ADDRESS IN TWO BYTES 




1E5F 










1E5F AD291F 




LDA 


ADDRIN+2 


THIRD HEX DIGIT 


1E62 OA 




ASL 






1E63 0A 




ASL 






1E64 0A 




ASL 






1E65 0A 




ASL 






1E66 0D2A1F 




ORA 


ADDRIN+3 


FOURTH HEX DIGIT 


1E69 8D2C1F 




STA 


ADDR+1 


SAVE LOW BYTE OF ADDRESS 


1E6C AD271F 




LDA 


ADDRIN 


FIRST HEX DIGIT 


1E6F 0A 




ASL 




SHIFT TO 4 HIGH BITS OF ACC. 


1E70 0A 




ASL 






1E71 0A 




ASL 






1E72 OA 




ASL 






1E73 0D281F 




ORA 


ADDRIN+1 


SECOND HEX DIGIT 


1E76 8D2B1F 




STA 


ADDR 


SAVE HIGH BYTE OF ADDRESS 


1E79 










1E79 


ERASE 


INPUT AREA 




1E79 ; 










1E79 A203 




LDX 


#$03 




1E7B A920 




LDA 


#$20 


SPACE 


1E7D 9DC6D0 G 


ET15 


STA 


DSPLY-64,X 




1E80 CA 




DEX 






1E81 10FA 




BPL 


GET15 


(continuec 
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Listing 3 














1E83 
















1E83 




NOW THAT WE HAVE 


THE 


START 


ADDRESS, 


1E83 




START DUMPING 








1E83 
















1E83 


18 DUMP0 5 


CLC 










1E84 


AD2C1F 




LDA 


ADDR+1 






SAVE START ADDRESS + 64 


1E87 


6940 




ADC 


164 








1E89 


8D2E1F 




STA 


SADDR+1 








1E8C 


AD2B1F 




LDA 


ADDR 








1E8F 


6900 




ADC 


#$00 






ADD CARRY TO HIGH BYTE 


1E91 


8D2D1F 




STA 


SADDH 








1E94 


AD2F1F 




LDA 


SLOC 






SET STARTING VIDEO RAM ADDR. 


1E97 


8514 




STA 


DLOC 








1E99 


AD301F 




LDA 


SLOC+1 








1E9C 


8515 




STA 


DLOC+1 








1E9E 
















1E9E 




DISPLAY ADDRESS OF FIRST BYTE OF THIS LINE 


1E9E 
















1E9E 


AD311F [ 


3UMP10 


LDA 


ADDRP 




; 


SETUP ADDR. FOR HEXASC 


1EA1 


8516 




STA 


DADDR 








1EA3 


AD321F 




LDA 


ADDRP+1 








1EA6 


8517 




STA 


DADDR+1 








1EA8 


A001 




LDY 


#$01 




, 


INIT REG. Y FOR 2 BYTES 


1EAA 


20F21E 




JSR 


HEXASC 




, 


DISPLAY ADDRESS 


1EAD 
















1EAD 




DISPLAY NEXT 4 BYTES 


IN HE* 




1EAD 
















1EAD 


18 




CLC 










1EAE 


AD2C1F 




LDA 


ADDR+1 




; 


SETUP ADDR. FOR HEXAE;C. 


1EB1 


8516 




STA 


DADDR 








1EB3 


6904 




ADC 


#$04 




; 


AND ADD 4 TO ADDRESS 


1EB5 


8D2C1F 




STA 


ADDR+1 








1EB8 


AD2B1F 




LDA 


ADDR 








1EBB 


8517 




STA 


DADDR+1 








1EBD 


6900 




ADC 


#$00 




; 


ADD CARRY TO HIGH BYTE 


1EBF 


8D2B1F 




STA 


ADDR 








1EC2 


A905 




LDA 


#$05 




; 


ADD 5 TO VIDEO RAM POINTER 


1EC4 


201B1F 




JSR 


INCLOC 








1EC7 


A003 




LDY 


#$03 




; 


INIT REG. Y FOR 4 BYTES 


1EC9 


20F21E 




JSR 


HEXASC 




; 


DISPLAY 4 BYTES 


1ECC 
















1ECC 




DISPLAY SAME 4 BYTES 


[N ASCII 


1ECC 
















1ECC 


A909 




LDA 


#$09 






ADD 9 TO VIDEO RAM POINTER 


1ECE 


201B1F 




JSR 


INCLOC 








1ED1 


A003 




LDY 


#$03 






INIT REG. Y FOR 4 BYTES 


1ED3 


B116 I 


3UMP15 


LDA 


(DADDR) 


,Y 




GET BYTE 


1ED5 


9114 




STA 


(DLOC) , 


Y 




DISPLAY IT 


LED? 


88 




DEY 








MORE BYTES? 


1ED8 


10F9 




BPL 


DUMP15 






YES, DISPLAY THEM 


1EDA 


A912 




LDA 


#18 






ADD 18 TO VIDEO RAM POINTER 


1EDC 


201B1F 




JSR 


INCLOC 








1EDF 
















1EDF 




CHECK 


IF WE ARE FINISHED 




1EDF 
















1EDF 


AD2E1F 




LDA 


SADDR+1 






LOW BYTE EQUAL? 


1EE2 


CD2C1F 




CMP 


ADDR+1 








1EE5 


D0B7 




BNE 


DUMP10 






NO, NEXT LINE 


1EE7 


AD2D1F 




LDA 


SADDR 








1EEA 


CD2B1F 




CMP 


ADDR 






HIGH BYTE EQUAL? 


1EEB 


DOAF 




BNE 


DUMP10 






GET NEXT START ADDRESS 


1EEF 


4C341F. 




JMP 


GET 






GET NEXT START ADDRESS 


1EF2 
















1EF2 




THIS 


SUBROUTINE CONVERTS FF 


)OM 2 HEX DIGITS 


1EF2 




PER 


BYTE 


TO 2 ASCII 


CHARAC 


:TERS IN 2 BYTES 


1EF2 
1EF2 




DADDR 


: POINTS TO 


THE 


FIRST 


INPUT BYTE 


1EF2 




DLOC 


: POINTS TO 


OUTPUT AR 


:a 


1EF2 




Y REG 


: NUMBER OF 


BYTES MIN 


JS 1 TO CONVERT 


1EF2 
















1EF2 


B116 


IEXASC 


LDA 


(DADDR) 


,¥ 




GET BYTE 


1EF4 


AA 




TAX 








SAVE IT IN REG. X 


1EF5 


98 




TYA 










1EF6 


OA 




ASL 








MULTIPLY REG. 1 BY 2 


1EF7 


A8 




TAY 










1EF8 


8A 




TXA 








PUT BYTE BACK IN REG. A 


1EF9 


4A 




LSR 








EXTRACT FIRST DIGIT 


1EFA 


4A 




LSR 










1EFB 


4A 




LSR 










1EFC 


4A 




LSR 










1EFD 


2012IF 




JSR 


HEXA10 






MAKE IT A CHARACTER 


1F00 


9114 




STA 


(DLOC) , 


Y 




DISPLAY IT 


1F02 


8A 




TXA 








•PUT BYTE BACK IN REG. A 


1F03 


290F 




AND 


#$0F 






•EXTRACT SECOND DIGIT 


1F05 


C8 




INY 








•NEXT OUTPUT BYTE 


1F06 


20121F 




JSR 


HEXA10 






MAKE IT A CHARACTER 


1F09 


9114 




STA 


(DLOC) , 


Y 




•DISPLAY IT 


1FOB 


98 




TYA 










1FOC 


4A 




LSR 








•DIVIDE REG. Y BY 2 


1FOD 


A8 




TAY 










1FOE 


88 




DEY 








MORE BYTES? 


1F0F 


10E1 




BPL 


HEXASC 






■YES, CONVERT THEM 


mi 


60 




RTS 








NO, RETURN 


1F12 
















1F12 




; CONVERT UNPACKED 


HEX 


DIGIT 


IN REG. A 


1F12 




1 TO ASCII 


CHARACTER 


IN REG 


A 


1F12 
















1F12 


C90A 


HEXA10 


CMP 


#10 






LESS THAN 10? 


1F14 


9002 




BCC 


HEXA15 






(continued) 



The last option can be useful for 
debugging: Dump can be called from an 
assembler program using JSR $1E00 or 
from BASIC using the USR[X] func- 
tion. You can dump part of memory 
and then continue your program execu- 
tion where it left off. 

To use Dump with BASIC, hit 
BREAK when the program is loaded, 
then type "C" to cold start and reply 
7680 to "MEMORY SIZE". 

Program Logic 

(All line numbers refer to listing 3] 

Lines 10 to 40 are equates for the 
following symbols: 

BASIN: the BASIC input routine, 
used by Dump for all 
keyboard input. 

DSPLY: the start of the first line of 
dump in the video RAM. This 
value can be adjusted if your 
TV monitor has a different 
overscan from mine. 

DLOC and DADDR: two page-zero 
words used as pointers with 
indirect-postindexed address- 
ing. Locations $14-$17 are 
part of a BASIC input buffer 
and using them does not 
seem to have any adverse 
effect. 

Lines 60-150 clear the screen. 

Lines 160-330 display the prompts. 

Lines 340-780 read the keyboard 
and execute a RTS if "R" is entered, or 
branch to DUMP05 if you hit 
RETURN, or translate the 4 hex- 
adecimal digits to an address. 

At lines 790-900 at label DUMP05, 
the start address plus 64 is saved in 
SADDR. SADDR will be used later to 
decide when the display is full. The 
page-zero pointer (DLOC) to video 
RAM is set to the DSPLY value. 

Lines 910-970 display the address of 
the first byte of the current line. 

Lines 980-1100 display the hex- 
adecimal value of the next four bytes. 

Lines 1110-1200 display the same 4 
bytes in ASCII. 

Lines 1210-1270 check for the end 
of the 64 bytes. 

Lines 1280-1580 are the subroutine 
HEXASC. It is used to display addresses 
and the hexadecimal dump. Refer to 
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listing 3 for more details. 

Lines 1590-1660 are the subroutine 
INCLOC. It is used to update the cur- 
rent video RAM position pointer 
(DLOCJ. 



Francois Faguy has 10 years of 
programming experience. Starting as an 
application programmer, he moved to 
operating system support and data base 
administration. His hardware experience 
includes the DEC PDP 11 line and almost 
all systems marketed by IBM in the last 
15 years, from the 1130 to the 3033. After 
working for large Canadian corporations, 
he is now a freelance consultant. 

JMGRO 



Figure 1: The information displayed by the 
DUMP Utility Program. The first four 
characters of each line represent the ad- 
dress In hex of the first byte displayed on 
the line. The next eight characters, are the 
hex content of four bytes. The last four 
characters are the ASCII or graphic value 
of the same four bytes. 



Listing 3 (continued) 






1F16 6906 




ADC 


#$06 ;N0, ADD OFFSET FOR A-F 


1F18 6930 


HEXA1S 


ADC 


#■0' ;ADD OFFSET FOR ASCII 


1F1A 60 




RTS 




1F1B 








1F1B 


;THIS 


SUBROUTINE ADDS REG. A TO DLOC 


1F1B 








1F1B 18 


INCLOC 


CLC 




1F1C 6514 




ADC 


DLOC 


ADD TO LOW BYTE 


1F1E 8514 




STA 


DLOC 


•SAVE LOW BYTE 


1F20 A515 




LDA 


DLOC+1 


GET HIGH BYTE 


1F22 6900 




ADC 


#$00 


ADD CARRY 


1F24 8515 




STA 


DLOC+1 


SAVE HIGH BYTE 


1F26 60 




RTS 




1F27 








1F27 


;WORK 


AREAS 


1F27 








1F27 000000 


ADDRIN 


HEX 


00000000 ;SAVE 4 HEX DIGITS OF START ADD1 


1F2A 00 








1F2B 0000 


ADDR 


HEX 


0000 ; POINTER TO NEXT BYTE TO DUMP 


1F2D 0000 


SADDR 


HEX 


oooo 


START ADDRESS + 64 


1F2F 06D1 


SLOC 


ADR 


DSPLY 


STARTING VIDEO RAM LOCATION 


1F31 2B1F 


ADDRP 


ADR 


ADDR 


POINTER TO ADDR FOR HEXASC 


1F:!3 3C4352 


MSG1 


ASC 


'<CR>:NEXT 64 BYTES' 


1F36 3E3A4E 








1F39 455854 








1F3C 203634 








1F3F 204259 








1F42 544553 








1F«5 523A52 


MEG2 


ASC 


'R:RETURN TO CALLER' 


1F<i8 455455 








1F4B 524E20 








1F4E 544F20 








1FE1 43414C 








1F54 4C4552 








1F57 342044 


MSG3 


ASC 


'4 DIGITS HEX ADDh' 


1F5A 494749 








1F5D 545320 








1F60 484558 








1F63 204144 








1F66 4452 









HEX 

D083 

D0A3 

D0C3 

D0E3 

D103 

D123 

D143 

D163 

D183 

D1A3 

D1C3 

D1E3 

D203 

D223 

D243 

D263 

D283 

D2A3 

D2C3 

D2E3 

D303 

D323 

D343 

D363 

D383 


DEC + 





+ 5 


+ 10 




+ 15 +20 


DEC 


HEX 


53379 
53411 
53443 
53475 
53507 
53539 
53571 
53603 
53635 
53667 
53699 
53731 
53763 
53795 
53827 
53859 
53891 
53923 
53955 
53987 
54019 
54051 
54083 
54115 
54147 




















































53403 
53435 
53467 
53499 
53531 
53563 
53595 
53627 
53659 
53691 
53723 
53755 
53787 
53819 
53851 
53883 
53915 
53947 
53979 
54011 
54043 
54075 
54107 
54139 
54171 


D09B 




















































D0BB 








1 


F 


2 









































D0DB 




















































D0FB 








1 


F 


2 







A 


5 


1 


5 


6 


9 










■ 


fi 


i 


i 










D11B 








1 


F 


2 


~4~l 




8 


5 


1 


5 


6 








1 
















D13B 








1 


F 


2 


8 







F 





2 








1 


F 




T:7fl»iHSl 










D15B 








1 


F 


2 


C 




3 





1 


F 


6 








6 







& 


L 










D17B 








1 


F 


3 







D 


1 


2 


B 


1 


F 


3 


C 


1 


+ 


tf 


< 










D19B 








1 


F 


3 


4 




4 


3 


5 


2 


3 


E 


3 


A 




c 


R 














D1BB 








1 


F 


3 


8 




4 


E 


4 


5 


5 


8 


5 


4 




N 


E 


X 


T 










D1DB 








1 


F 


3 


C 




2 





3 


6 


3 


4 


2 









6 


4 












D1FB 








1 


F 


4 







4 


2 


5 


9 


5 


4 


4 


5 




B 


Y 


T 


E 










D21B 








1 


F 


4 


4 




5 


3 


5 


2 


3 


A 


5 


2 




S 


R 




R 










D23B 








1 


|F_ 


4 


i_8_ 




4 


5 


5 


4 


5 


5 


5 


2 




E 


T 


U 


R 










D25B 








1 


F 


4 


C 




4 


E 


2 





5 


4 


4 


F 




N 




T 


O 










D27B 








1 


F 


5 


r o 




2 





4 


3 


4 


1 


4 


C 






C 


A 


L 










D29B 








1 


F 


5 


4 




4 


C 


4 


5 


5 


2 


3 


4 




L 


E 


R 


4 










D2BB 








1 


F 


5 


8 




2 





4 


4 


4 


9 


4 


7 






D 


I 


G 










D2DB 








1 


iF_ 


5 


C 




4 


9 


5 


4 


5 


3 


2 







I 


T 


S 












D2FB 




















































D31B 










C 


R 






N 


E 


X 


T 




6 


4 




B 


Y 


T 


E 


S 










D33B 








R 




R 


E 


T 


U 


R 


N 




T 


O 




C 


lA 


L 


L 


E 


R 










D35B 








4 




D 


I 


G 


I 


T 


S 




H 


E 


X 




A 


D 


D 


R 












D37B 




















































D39B 


+ 





+ 5 


+ 10 




+ 15 +20 
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A JOURNAL FOR OSI USERS!! 

The Aardvark Journal is a bimonthly tutorial for OSI 
users. It features programs customized for OSI and 
has run articles like these: 

1) Using String Variables. 

2) High Speed Basic On An OSI. 

3) Hooking a Cheap Printer To An OSI. 

4) An OSI Disk Primer. 

5) A Word Processor For Disk Or Tape Machines. 

6) Moving The Disk Directory Off Track 12. 

First year issues already available! 
$9.00 per year (6 issues 



ADVENTURES 

Adventures are interactive fantasies where you give the 

computer plain English commands (i.e. take the sword, 

look at the control panel.) as you explore alien cities, 

space ships, ancient pyramids and sunken subs. Average 

playing time is 30 to 40 hours in several sessions. 

There is literally nothing else like them — except 

being there yourself. We have six adventures available. 

ESCAPE FROM MARS - Explore an ancient 

Martian city while you prepare for your escape. 

NUCLEAR SUBMARINE - Fast moving 

excitement at the bottom of the sea. 

PYRAMID — Our most advanced and most 

challenging adventure. Takes place in our 

own special ancient pyramid. 

VAMf IRE CASTLE - A day in old Drac's 

castle. But it's getting dark outside. 

DEATH SHIP - It's a cruise ship - but it ain't 

the Love Boat and survival is far from certain. 

TREK ADVENTURE - Takes place on a 

familiar starship. Almost as 

good as being there. 



NEW SUPPORT ROMS FOR BASIC 
IN ROM MACHINES 



C1S - for the C1P only, this ROM adds full 
screen edit functions (insert, delete, change 
characters in a basic line). Softwave selectable 
scroll windows, two instant screen clears {scroll 
window only and full screen), software chose of 
OSI or standard keyboard format. Bell support, 
600 Baud cassette support, and a few other 
features. It plugs in in place of the OSI ROM. 
NOTE: this ROM also supports video conversions 
for 24, 32, 48 or 64 characters per line. Replaces 
video swap tape on C1P model 2. All that and it 
sells for a measly $39.95. 

C1E/C2E for C1/C2/C4/C3 Basic in ROM ma- 
chines. This ROM adds full screen editing, toft- 
ware selectable scroll windows, keyboard correc- 
tion (software selectable), and contains an ex- 
tended machine code monitor. It has breakpoint 
utilities, machine code load and save, block 
memory move and hex dump utilities. A must for 
the machine code programmer replaces OSI sup- 
port ROM. Requires installation of additional 
chip when installed in a C2 or C4. C1 installation 
requires only a jumper move. Specify system 
$59.95. 



DISK UTILITIES 

SUPER COPY - Single Disk Copier 
This copy program makes multiple copies, 
copies track zero, and copies all the tracks 
that your memory can hold at one time — 
up to 12 tracks at a pass. It's almost as fast 
as dual disk copying. - $15.95 
MAXIPROSS (WORD PROCESSOR) - 65D 
polled keyboard only - has global and line edit, 
right and left margin justification, imbedded 
margin commands, choice of single, double or 
triple spacing, file access capabilities and all the 
features of a major word processor — and it's 
only $39.95. 



P.C. BOARDS 

MEMORY BOARDS!! - for the C1P. - and they 
contain parallel ports! 

Aardvarks new memory .board supports 8K 
of 21 14's and has provision for .a PIA to give a 
parallel ports! It sells as a bare board for $29:95. 
When assembled, t+ie board plugs into the expan- 
sion connector on the 600 board. Available now! 

PROM BURNER FOR THE C1P - Burns single 
supply 2716'i. Bare board - $24.96. 
MOTHER BOARD — Expand your expansion 
connector from one to five connectors or use it 
to adapt our C1P boards to your C4/I5P . - $ 1 4 .95 . 

ARCADE AND VIDEO GAMES 

GALAXIA one of the fastest and finest arcade 
games ever written for the OSI, this one features 
rows of evasive, hardhitting, dogfHjhting aliens 
thirsty for your blood. For those who loved (and 
tired of) Alien Invaders. — P.S. The price is a 
giveaway. SPECIFY SYSTEM! 
Cassette $9.95 - Disk $12.95 

TIME TREK (8K) - real time Startrek action. 
See your torpedoes move across the screen! Real 
graphics — no more scrollina displays. $9.95 
INTERCEPTOR C1P ONLY! An all machine 
code program-as fast and smooth as the arcades. 
You use your interceptor to protect your cities 
from hordes of enemy invaders. A pair of auto- 
matic cannons help out, but the action speeds up 
with each wave of incoming ships. The fastest 
and most exciting C 1P game yet. 
C1P Cassette $19.95 

MINOS — A game with amazing 3D graphics. 
You see a maze from the top, the screen blanks, 
and then you are in the maze at ground level, 
finding your way through on -foot. Realistic 
enough to cause claustrophobia. — $1 2.95 



SINGLE STEPPER /MONITOR 

This is probably the finest debugging tool for 
machine code ever offered for OSI systems. Its' 
trace function allows you to single step through 
a machine code program while it continuously 
displays the A, X, Y and status registers and the 
program and stack pointers. You can change any 
of the registers or pointers or any memory loca- 
at any time under program control. It takes well 
under 1k and can be relocated anywhere in free 
memory. It is a fine tool for all 'systems — and 
the best news of all is the extremely low price we 
put on it. -Tape $19.95 - Disk $24.95 

FOR DISK SYSTEMS - (65D, polled key- 
board and standard video only.) 
SUPERDISK. Contains a basic text editor with 
functions similar to the above programs and also 
contains a renumberer, variable table maker, 
search and new BEX EC* programs. The BEXEC* 
provides a directory, create, delete, and change 
utilities on one track and is worth having by 
itself. - $24.95 on 5" disk - $26.95 on 8". 

AARDVARK IS NOW AN OSI DEALER! 

Now you can buy from people who can support 
yourtnechine. 

- THIS MONTH'S SPECIALS - 

Superboardll $279 

C1P Model II 429 

C4P 749 

8K610boardforC1P 269 

Epson MX-80 printer with RS232 insta*ied 595 

. . . and we'll include a free Text Editor Tape 
with each machine! 

True 32X32 Video Mod Plans for C1P 

(4 Chips $3 .00 Crystal Required) 

$7.95 



This is only a partial listing of what we have to offer. We now offer over 100 programs, data sheets, ROMS, and boards 
for OSI systems. Our $1.00 catalog lists it all and contains free program listings and programming hints to boot. 



Aardvark Technical Services • 1690 Bolton 

4313) 669-3110 



Walled Lake, Ml 48088 
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/AlCftO 

Classified 



Each classified ad costs only $10.00 pez 
insertion, pie-paid with typewritten 
copy. These ads are limited to one per 
company/individual per month. Please 
limit these entries to less than 40 
words. (Oversized ads will be rejected 
and returned.) Title line, name and ad- 
dress are not considered in count. Ads 
received before the 20th of the second 
month preceding the month of publica- 
tion will be published in next issue, i.e. 
May 20th for the July issue. For further 
information, call (617) 256-5515. 



AIM 65 Newsletter * * Target 

Target provides hardware and software 
information useful for AIM-65 and 6502 
users. The 1979 and 1980 back issues are 
available for $12.00 while a continuing 
subscription costs $6.00. Just write to: 

Target 

Donald Clem 

Route 2 

Spenserville, Ohio 45887 



Turnkey Medical Billing System 

Interactive data entry. Automated file 
management. Outputs: Patient state- 
ments, Universal Claim Forms, financial 
reports. Customized by user-developed 
text files. Requires Apple, Applesoft, 
printer. One disk drive manages 150 
accounts; 2 drives— 400 accounts. $350 for 
programs and 25 pp documentation. 

Jerome B. Blumenthal, M.D. 

7500 E. Hellman 

Rosemead, California 91770 



New Catalog 

Includes hardware and software I 
CIP/Superboard and other com 
Games, simulations, utilities, 
chips, boards and programs. Send $ 
catalog and sample program [reft 
order) . 

Software Plus + 
1818 Ridge Avenue 
Florence, Alabama 35630 



Ohio Scientific 

SPACE WARS: for C1P or Superboa 
Put your ship through S-turns, fire 
lasers at the enemy. WIZARDS & 1 
RIORS: fight the creatures in 
dungeons, search for treasure. Whei 
finish one dungeon there's al 
another. W & W for all OSI. SPACE V 
$4.95, WIZARDS & WARRIORS ! 
cassette only. 

Danny Havey 

14430 Whittier Blvd., Suite 109 

Whittier, California 90605 



Atari Game Owners 

Turn your Video Game Console into a 
6502 microcomputer with our MagiCard. 
Write programs using your keyboard con- 
trollers, with full access to Atari video 
capabilities. Includes IK bytes RAM, 
ROM monitor, disassembler, instruction 
manual, cassette interface plans. Send 
$49.88 (Illinois add 6%| to: 

Computer Magic Inc. 

P.O. 3383M 

Fox Valley Center 

Aurora, Illinois 60505 



Spanish Hangman 

2,000 SPANISH words and sentences 
taught in a fun way on the Apple. Send for 
your school's free 30-day evaluation 
diskette, from: 

George Earl 

1302 South General McMullen 

San Antonio, Texas 78237 



C1 P Extended Monitor 

2K EPROM has 14 cursor control /editing 
functions, improved keyboard decoding. 
Machine language save, load, display, 
modify, move, breakpoint processing and 
much more. For 24, 32, 64 char/line. 
$39.95 plus $1.00 shipping. $1.00 for 
complete information. 

Bustek 

P.O. Box A 

St. Charles, Missouri 63301 



PET Machine Language Guide 

Comprehensive manual to aid machine 
language programmer. More than 30 
routines are fully detailed so that the 
reader can put them to immediate use. 
OLD or NEW ROMs. $6.95 + .75 postage. 
VISA &. Mastercharge accepted. 

Abacus Software 

P.O. Box 7211 

Grand Rapids, Michigan 49510 



Accounts Receivable by SBCS 

For the Apple II. This conversio 
Osborne's Accounts Receivable soft 
contains the same capabilities, plus i 
enhancements that increase your Ap 
flexibility, speed, and performance, 
alone or integrate with existing Ge: 
Ledger program. Retail price $180. 
Small Business Computer Syster 
4140 Greenwood 
Lincoln, Nebraska 68504 



Applechess Openings 

This program contains 1310 half mo* 
86 final positions that are reached w 
less than 7 moves and no more than [ 
quires 48K, Applesoft, Integer in ROfi 
drive, chess board and pieces. Av 
only on disk (please specify 3.2 or 3.3 
Send $20 in check or money order tc 

Bill Cowan 

24329 Westwood Dr. 

Westlake, Ohio 44145 



tffti 



OHIO SCIENTIFIC USERS 

SOFTWARE - GAME AND UTILITY PROGRAMS FOR AS LOW AS $1.00. ALL 
WITH LISTINGS AND COMPLETE DOCUMENTATION. 

KITS - UPDATE YOUR COMPUTER TO PLAY MUSIC, INCREASE OPERATING 
SPEED, HIGH RESOLUTION GRAPHICS AND MUCH MORE. KITS INCLUDE 
PARTS AND COMPLETE ASSEMBLY INSTRUCTIONS. LOW AS $3.00. 

OUR $1.00 CATALOG INCLUDES OSI PROGRAMMING TIPS PLUS DESCRIPTIONS 
OF AVAILABLE PROGRAMS AND KITS. 

MTTTENDORF ENGMEEfflNG 905 VLLA NUEVA Da UTCHFELD PARK,AZ 8534C 
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Machine Language 

to DATA Statement 

Conversion 



Many times machine language 
routines are implemented in 
BASIC programs as DATA 
statements. This article will 
demonstrate an easy and 
accurate way to incorporate the 
routines into your BASIC 
programs. 



Les Cain 

1319 N. 16th 

Grand Junction, Colorado 81501 



Anyone who has written machine code 
routines and then tried to convert them 
to DATA statements to include in a 
BASIC program, knows the problems 
encountered in converting hex to 
decimal, and then typing in the DATA 
statements. This method works but is 
slow and is subject to numerous errors. 

While converting an Othello pro- 
gram from Mr. Earl Morris to work on 
disk BASIC, I had to change some of 
the machine code to work with the disk 
USR(X] functions, and then redo the 
DATA statements to POKE in the cor- 
rect code. That was too much trouble, 
so I wrote the following short program 
to do the work for me. 

Lines 70 through 1 10 prompt for the 
beginning and the ending addresses of 
the machine code. Subroutine 250 
enters with a hex number and returns a 
decimal number. If you are just looking 
at the data then line numbers are not 
needed, and the beginning and ending 
addresses are printed. 

To record on tape, line numbers are 
required. Be sure line numbers are 
compatible with the BASIC program. 
Change line 155 (cassette tape output] 



to suit your particular system. Change 
line 230 to a REM statement, then turn 
on recorder and run the program. Out- 
put will have line numbers and DATA 
statements along with the machine 



code in decimal format. Then all that is 
required is to input from cassette into 
your BASIC program, put in the READ 
and POKE statements and you're on 
your way. 

JMCftO 



1 REM MACHINE CODE TO DATA STATEMENT ROUTINE 




2 REM BY LES CAIN 




3 REM MICRO #36 JUNE 1981 




4 REM 




10 DIM D(4) 




20. FOR I = 1 TO 30: PRINT : NEXT 




30 PRINT TAB( 20); "PEEKS AT MACHINE CODE " 




40 PRINT TAB( 20); "AND RETURNS DATA" 




50 FOR I = 1 TO 10: PRINT : NEXT 




70 INPUT "BEGIN ADDRESS" ; BE$ :N$ = BE$ 




90 GOSUB 250:B = D:C = B 




100 INPUT "END ADDRESS" ;EN$:N$ = EN$ 




110 GOSUB 250:E = D:F = E 




120 GOSUB 330 




130 PRINT : PRINT : PRINT 




140 PRINT "DECIMAL";B; TAB ( 20);"$";BE$ 




150 PRINT : PRINT : PRINT 




155 REM —INSERT ROUTINE TO OUTPUT TO TAPE AT 


THIS LINE 


170 IF F > = C THEN PRINT LN; : PRINT "DATA" 


1 


180 AA$ = "" 




190 FOR J = B TO B + 15 




200 A$ = STR$ { PEEK (J) ) 




210 AB$ = "" 




220 FOR I = 2 TO LEN (A$) :AB$ = AB$ + MID$ 


(A$,I,1) : NEXT 


225 AA$ = AA$ + AB$ 




226 F = F - 1 




227 IF J < > B + 15 AND F > C THEN AA$ = AA$ 


^ 9 


228 IF F < = C THEN PRINT AA$ : GOTO 230 




229 NEXT : PRINT AA$:B = B + 16: LN = LN + IN: 


GOTO 170 


230 PRINT : PRINT : PRINT "DECIMAL" ;E; TAB ( 20); "HEX $"EN$ 


231 GOTO 70 




250 J = 1 




260 FOR I = 1 TO 4:D(I) = 0: NEXT 




270 FOR I = 1 TO 4 




280 D(I) = ASC ( MID$ (N$,J)) - 48 




290 IF D(I) > 9 THEN D(I) = D(I) - 7 




300 J = J + 1: NEXT 




310 D = 4096 * D(l) + 256 * D(2) + 16 * D(3) + 


D(4) 


320 RETURN 




330 INPUT "BEGIN LINE NUMBER" ;LN 




340 INPUT "INCREMENT"; IN 




350 RETURN 
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we carry it all. 



Atari 9 Software 

VisiCalc 149 

CX4101 Invitation to Programming 1 .. 17 

CX41 04 Mailing List 17 

CX4102 Kingdom 13 

. CX4 103 Statistics 17 

CX41 05 Blackjack 13 

CX4106 Invitation to Programming 2 .. '20 

CX4107 Biorhythm 13 

CX4108 Hangman 13 

CX4109 Graph It 17 

CX41 1 1 Space Invader 17 

CX41 10 Touch Typing 20 

CX41 15 Mortgage & Loan Analysis 13 

CX41 1 6 Personal Fitness Program 13 

CX41 1 7 Invitation to Programming 3 . . 20 

CX4 1 1 8 Conversational French 45 

CX41 1 9 Conversational German 45 

CX41 20 Conversational Spanish 45 

CX4121 Energy Czar 13 

CX41 25 Conversational Italian 45 

CX8108 Stock Charting 20 

CXL4001 Educational System Master .. 21 

CXL4002BasicComputingLanguage.. 46 

CXL4003 Assembler Editor 46 

CXL4004 Basketball 30 

CXL4005 Video Easel 30 

CXL4006 Super Breakout 30 

CXL4007 Music Composer 45 

CXL4009 Chess 30 

CXL401 3-D Tic-Tac-Toe 30 

CXL401 1 Star Raiders 45 

CXL40T5 TeleLink 20 

Talk & Teach Courseware: 

CX6001 to CX601 7 23 



everything for Commodore 
and Atari 



Atari 8 Peripherals: 

400 8K $ 419 

400 16K 449 

410 Recorder 62 

810 Disk 479 

815 Disk 1199 

822 Printer 359 

825 Printer 759 

830 Modem 159 

850 I nterface Module 1 64 



Atari" Accessories 

CX852 8K RAM 94 

CX853 16KRAM 149 

CX70 Light Pen 64 

CX30 Paddle 18 

CX40 Joystick 18 

CX86 Printer Cable 42 

C016345 822 Thermal 

Printer Paper 5 

CA01 6087 825 80-col. 

Printer Ribbon 

(3/box) 17 

Microtek 16KRAM 99 

Microtek 32K RAM 1 79 




A 

ATARI 



Atari® 800™ 
Personal Computer 

32K RAM 




Printers 



NEC 5530 2495 

Diablo 630 2 1 95 

Trendcom 1 00 299 



Starwriter $1 495 

Trendcom 200 489 

Paper Tiger 445G 769 

Paper Tiger 460G 1219 

Epson MX-80 499 

Tally 8024 1699 



C* 

commodore 



VIC-20 S 27 

8096 1 8£ 

4032 106 

8032 149 

CBM 4022 Printer 66 

CBM 4040 Drive 9S 

CBM 8050 Drive 144 

CBM C2N Drive 8 

PET-IEEE Cable 3 

IEEE-IEEE Cable 4 



Disks 



Maxell Disks 1 for $3 

Syncom Disks 10 for 2 

Atari Disks 5 for 2 



Software 



EBS Accounts Receivable 

Inventory System $59 

Dr. Daley Mailing List 12 

Dr. Daley Inventory 8 

OZZ Information System 32 

BPI General Ledger 32 

Tax Package 39 

Dow Jones Portfolio Management . . 12' 

Pascal 23! 

WordPro 3 (40 col.) 1 Si 

WordPro 4 (80 col.) 27! 

■WordPro 4 Plus (80 col.) 33! 



Please Call Between 1 1AM & 6PM 
(Eastern Standard Time) 

(800) 233-8950 



No Risk - 

No Deposit On 
Phone Orders - 

COD or 

Credit Card -Shipped Same Day You Call" 

Prepaid Orders Receive Free Shipping 

* on all in stock units 

Computer Mail Order 501 E. Third St., Williamsport, PA 17701 (717) 323-7921 
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Telephone Directory/Dialer 

for the AIM 



ii'urn your AIM into a telephone 
operator with a directory and 
dialer program. 



todney A. Kreuter 
toute 1, Box 310 
: incastle, Virginia 24090 



Although using a micro to dial a 
telephone is certainly not a new idea, I 
think you'll find this directory/dialer a 
useful program to add to your AIM 65 
library. The directory/dialer can store 
and dial approximately 100 names and 
phone numbers in a 4K AIM 65. Since 
it is written entirely in assembly 
language, you will not need the BASIC 
or assembler ROMS. However, you 
will need at least 2K of RAM to hold 
the program and the directory. 

The directory is simply the list of 
names and phone numbers that you 
wish to store. There are a few restric- 
tions: the name can only be 16 
characters long (see program modifica- 
tion for longer names). The name can 
be alpha/numeric but must not contain 
an ' = ' sign. The name must be follow- 
ed by an '= ' sign. The number must 
not contain any character that is not 
numeric, and each entry must end with 
a carriage return. For example: 

Valid DAD = 563021 1[CR] 

Valid HARDWARE ON 2nd 
= 389421 7[CR] 

Invalid MARY = (703)9458512 
[CR] ( ) are not numeric 

Invalid JOE = 814-502-4907 
[CR] - - are not numeric 
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Table 1 


Location 


Name 


Description 


$0000,0001 


PNTR 


This is the pointer used to store the 
directory in RAM. 


$0002,0003 


BTMPTR 


The bottom or end RAM location of 
your directory. 


$0004,0005 


MSGPTR 


Message pointer— points to the 
message string. 


$0006,0007 


FINPTR 


Find pointer— used by string search 
to find the string. 


$0008 


LEN 


Length of the string entered. 


$0020 - 002F 


STRING 


User entered string. 


$0030 - ?? 


NUMBER 


ASCII of number to be dialed. 


$0200,0201 




Image of PNTR. 


$0202,0203 




Directory end address. 


$0204,0205 




Directory start address. 



TO 
LINE 



TO TELEPHONE 



TO 
PB0 

PIN 9 ♦ 

APPLICATIONS 
CONNECTOR 




5 VOLT RELAY 



L 6<l J 36 L L. B0 ° -J 

r MIS ~ MS r r MS ~ 



MAKE 
(ON HOOK) 

BREAK 
(OFF HOOK) 



^_j^_r^^j^r^ 



RELAY R1 = CLOSED 



RELAY R1 = OPEN 



Note: A direct connection is not legal unless a coupler is used. For more informa- 
tion, please refer to "SYM-Bell" by Randy Sebra (30:17). 
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About the Program 

The directory/dialer can be divided 
into three basic programs: 

1. Entry piogiam: This allows you 
to assign directory storage space and 
does the actual storing of your data. 

2. String search piogiam: This pro- 
gram scans your directory and finds the 
number you wish to dial. 

3. Interface piogiam: This program 
does the actual dialing by using two 
relays connected to one of the user 
ports. 

Since this program is not heavily 
commented (I barely had enough RAM 
to assemble it), some definitions will 
help in understanding the program. 
They appear in table 1. 



The three pointers from $0200 
-$0205 were put there so that they are 
saved on cassette when the program is 
dumped. This way the directory can 
always be updated. Be sure to dump 
from $0200 to the end of your directory. 

After loading the program begin ex- 
ecution at $0210. Note: It does not 
begin at $0200. 

The following is a sample run: 

AIM: Dial (D) or Enter (E)? 
USER: E 

AIM: New (N) or Add (A)? 
USER: N 



Note: The first time the program is 
run you must respond with New in 
order to assign directory space. Later 
you will add additional numbers by 
replying ADD (A). 

AIM: From = 

USER: 0450 [CR] 

AIM: To = 

USER: 0600 [CR] 

AIM: A 

USER: ; (Semi-colon gets you 

out of the entry mode) 

AIM: Dial (D) or Enter? 

USER: D 

AIM: Name ? 

USER: Rod 

AIM: Rod = 4732128 

USER: (Pick up the phone and 

wait for dial tone. Hit any key 

and the AIM will begin dialing) 

AIM: Redial? 

USER: (Any key except 'Y' if you 

do not wish to redial, 'Y' if you do) 



0800 




***************************************** 


0800 




* 






* 


0800 




* TELEPHONE DIRECTORY/DIALER FOR AIM 65 * 


0800 




* 






* 


0800 




* 




BY RODNEY A 


. KREUTER * 


0800 




***************************************** 


0800 




* 








0800 




AIM SUBROUTINES 




0800 












0800 


BLANK2 


EQU 


$E83B 




0800 


CRLOW 


EQU 


$EA13 




0800 


FROM 


EQU 


$E7A3 




0800 


OUTPUT 


EQU 


$E97A 




0800 


READ 


EQU 


$E93C 




0800 


REDOUT 


EQU 


SE973 




0800 


TO 


EQU 


$E7A7 




0800 












0800 


PNTR 


EPZ 


$00 


;RAM POINTER 


0800 


BTMPTR 


EPZ 


$02 


;END OF RAM 


0800 


MSGPTR 


EPZ 


$04 




0800 


FINPTR 


EPZ 


$06 


;USED TO FIND STRIN 


0800 


LEN 


EPZ 


$08 


; LENGTH OF STRING 


0800 


STRING 


EPZ 


$20 




0800 


NUMBER 


EPZ 


$30 




0800 












0210 






ORG 


$210 




0210 






OBJ 


$800 




0210 












0210 


A200 GO 


LDX 


#$00 




0212 


207C03 




JSR 


MSGSUB 




0215 


203CE9 LP0 


JSR 


READ 




0218 


C945 




CMP 


#'E' 


; ENTER? 


021A 


F006 




BEQ 


ENTER 




021C 


C944 




CMP 


#'D' 


;DIAL? 


021E 


F070 




BEQ 


DIAL 




0220 


D0F3 




BNE 


LP0 




0222 












0222 


A201 ENTER 


LDX 


♦ $01 




0224 


207C03 




JSR 


MSGSUB 




0227 


203CE9 LP1 


JSR 


READ 




022A 


C941 




CMP 


#'A' 


;ADD? 


022C 


F030 




BEQ 


ADD 




022E 


C94E 




CMP 


#'N" 


;NEW? 


0230 


F002 




BEQ 


NEW 




0231! 


D0F3 




BNE 


LP1 




0234 












0234 


201 3EA NEW 


JSR 


CRLOW 




0237 


20A3E7 




JSR 


FROM 




023A 


AD1CA4 




LDA 


$A41C 




02 3D 


8D0002 




STA 


$200 




0240 


8D0402 




STA 


$204 




0243 


AD1DA4 




LDA 


$A41D 




0246 


8D0102 




STA 


$201 




024!) 


8D0502 




STA 


$205 




024C 


203BE8 




JSR 


BLANK2 




024F 












0241' 


20A7E7 MORE 


JSR 


TO 




0252 


AD1CA4 




LDA 


$A41C 




025!i 


8D0202 




STA 


$202 




0251? 


AD1DA4 




LDA 


$A41D 




02513 


8D0302 




STA 


$203 




02 5E 












0251: 




•MOVE 


POINTER TO ZERO 


PAGE 


02513 












025E 


201 3EA 1 


\DD 


JSR 


CRLOW 




0261 


A203 




LDX 


#$03 




026 3 


BD0002 


LP 2 


LDA 


$200, X 




0266 


9500 




STA 


$00, X 




02619 


CA 




DEX 






0269 


10F8 




BPL 


LP2 




026B 


AO0O 




LDY 


#$00 




026D 












0260 




(GET HIS INPUT 




026D 












0260 


2073E9 


>UTIN 


JSR 


REDOUT 




0270 


9100 




STA 


(PNTR) ,Y 


;PUT IT IN RAM 


0272 


C93B 




CMP 


#',•' 




0274 


F09A 




BEQ 


GO 




0276 


C90D 




CMP 


#$0D 




0278 


D00 3 




BNE 


NCR 





■- -x 
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027A 


281 3EA 




JSR 


CRLOW 




8 27D 












027D 




•NO CARRIAGE RETURN 




027D 












027D 


209803 


NCR 


JSR 


INCPTR 




0280 


90EB 




BCC 


PUTIN 




0282 


A202 




LDX 


#$02 




0284 


207C03 




JSR 


MSGSUB 




0287 


203CE9 




JSR 


READ 




028A 


2013EA 




JSR 


CRLOW 




028D 


4C4F02 




JMP 


MORE 




0290 




t 








0290 


A203 


DIAL 


LDX 


♦ $03 




0292 


207C03 




JSR 


MSGSUB 




0295 


A200 




LDX 


#$00 




0297 


2073E9 


LP3 


JSR 


REDOUT 




029A 


9526 




STA 


STRING, X 




029C 


C90D 




CMP 


#$0D 




029E 


F003 




BEQ 


LP7 




02A0 


E8 




INX 






02A1 


D0F4 




BNE 


LP 3 




02A3 


CA 


LP7 


DEX 






02A4 


8608 




STX 


LEN 




02A6 


AD0402 




LDA 


$204 




02A9 


8506 




STA 


FINPTR 




02AB 


AD0502 




LDA 


$205 




02AE 


8507 




STA 


FINPTR+1 




02B0 












02B0 




;FIND 


HIS STRING 




02BO 












02B0 


A200 


LPS 


LDX 


#$00 




02B2 


A000 




LDY 


♦ $00 




02B4 


B106 


LP4 


LDA 


(FINPTR) ,Y 




02B6 


D520 




CMP 


STRING, X 




02B8 


DOOA 




BNE 


INCFIN 




02BA 


B520 




LDA 


STRING, X 




02BC 


E408 




CPX 


LEN 




02BE 


F029 




BEQ 


DIALIT 




02C0 


E8 




INX 






02C1 


C8 




INY 






02C2 


DOFO 




BNE 


LP4 




02C4 


18 


INCFIN 


CLC 






02C5 


D8 




CLD 






02C6 


A506 




LDA 


FINPTR 




02C8 


6901 




ADC 


#$01 




02CA 


8506 




STA 


FINPTR 




02CC 


A507 




LDA 


FINPTR+1 




02CE 


6900 




ADC 


#$00 




02D0 


8507 




STA 


FINPTR+1 




02D2 


C503 




CMP 


BTMPTR+1 




02D4 


90DA 




BCC 


LP5 


OK 


02D6 


D006 




BNE 


NOFIND 




2D8 


A506 




LDA 


FINPTR 




0.2DA 


C502 




CMP 


BTMPTR 




2DC 


90D2 




BCC 


LP5 , 


OK 


02DE 




s 








2DE 


A205 


NOFIND 


LDX 


#$05 




O2E0 


207C03 




JSR 


MSGSUB 




02E3 


203CE9 




JSR 


READ 




02E6 


4C9002 




JMP 


DIAL 




02E9 




; 








02E9 


2013EA 


DIALIT 


JSR 


CRLOW 




02EC 


AOOO 




LDY 


#$00 




02EE 


B106 


LP8 


LDA 


(FINPTR) ,Y 




02F0 


C90D 




CMP 


• $0D 




02F2 


F006 




BEQ 


DODIAL 




02F4 


207AE9 




JSR 


OUTPUT 




02F7 


C8 




INY 






02F8 


D0F4 




BNE 


LP8 




02FA 




; 








02FA 


203CE9 


DOCIAL 


JSR 


READ 




2FD 


AOOO 




LDY 


#$00 




02FF 


A200 




LDX 


#$00 




0301 


B106 


LP9 


LDA 


(FINPTR) ,Y 




0303 


C93D 




CMP 


#' = ' 




0305 


F003 




BEQ 


GOTIT 




0307 


C8 




INY 






0308 


D0F7 




BNE 


LP9 




030A 




1 








30A 


C8 


GOTIT 


INY 






030B 


B106 


LP10 


LDA 


(FINPTR) ,Y 


(continued) 



Special Cases 

If the AIM cannot find the string 
you have entered it will respond with: 

AIM: Can't find that name. 
Hit any key to get back to the 
string enter point. 

If your directory is full, AIM will 
respond with: 

AIM: Out of memory. 

Hit any key and AIM will ask for a 

new directory ending address. 

Hardware 

The hardware required to do the ac- 
tual dialing is shown in figure 1 and is 
fairly straightforward. Dial pulsing was 
chosen instead of tones since it is still 
the only universal method of dialing. 
Relay R2 is used to short the phone dur- 
ing dialing to suppress annoying clicks 
and pops. Relay Rl does the actual 
pulsing. 

Progiam Modifications 

The dialer/ directory was not writ- 
ten to be relocatable since the AIM 65 
is the only machine on which it will 
run. Modifying it to run on other 
machines will require a fair amount of 
work. The only references that make it 
difficult to relocate in the AIM are the 
six references to $0200 - $0205. 

Longer names may be used by 
relocating "number" in page zero. This 
will allow the string to be longer 
without overrunning the number 
storage. 

The dialing time is set up for stan- 
dard 10 pulses/second dialing. The 
make time (set up by subroutine 
TIM64) is 64 milliseconds. The break 
time (TIM36) is 36 milliseconds. Inter- 
digit time is. 800 milliseconds caused 
by jumping to subroutine TIM50 six- 
teen times. Other dialing methods may 
call for a change in this timing. 



Rod Kreuter is a senior circuit designer for 
International Telephone and Telegraph in 
Roanoke, Virginia. At work he uses a 
Rockwell System 65 to develop 6502 
machine controls for ITT, and has an AIM 
65 at home. His home system consists of a 
4K AIM 65 with a homebrew CRT 
interface similar to the one described in 
Rockwell's application note R6SOO N1.2. 
His hobbies include writing, skiing, and 
photography. 

jucno 
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APPLE II* 
SOFTWARE FROM 

POWERSOFT 

P. O. BOX 157 

PITMAN, NEW JERSEY 08071 

(609) 589-5500 

SUPER CHECKBOOK III - A vastly improv- 
ed version of our popular selling program. 
With new features such as: simplified but 
powerful transaction entry and modifica- 
tion routines, new reconciliation routines, 
additional features such as 30 percent in- 
crease in the total number of checks han- 
dled, posting of interest from interest bear- 
ing checking accounts, automatic teller 
transactions, bullet proof error handling, 
and smart disk routines. Plus the program 
still contains the options of bar graphs, 

sorting, activities, and account status 

Disk Only/Applesoft $49.95 

ADDRESS FILE GENERATOR- Allows the 

user to create any number of four types of 
address files: Holiday, Birthday, Home and 
Commercial. The program contains a menu 
of seven major commands used to: Create, 
Add, Edit, Display, Search, Sort, -and 
Reorganize Files. Up to three fields may be 
used for the sort criteria. Major commands 
have subordinate commands which adds to 
the flexibility of this powerful software 
system. We doubt you could buy a better 
program for maintaining and printing ad- 
dress files Disk Only/Apple 

Printer Card/Applesoft $24.95 

SPANISH VOCABULARY DRILL 
FRENCH VOCABULARY DRILL 
ITALIAN VOCABULARY DRILL 
GERMAN VOCABULARY DRILL 

These programs provide practice in foreign 
language vocabulary by means of three 
types of drills: Matching, Foreign Language 
to English and English to Foreign 
Language. Although the diskette comes 
with some lessons on it, these are intended 
to be samples. The most effective way to 
use these programs is to enter your own 
lessons from the course you are studying. 
To facilitate the entry of new lessons, each 
program contains a complete Lesson Editor 
which has various entry and revision op- 
tions. The manual also contains instruc- 
tions for converting the programs to other 

languages Disk Only/ 

Applesoft each $24.95 

SPACE TREK J -Your mission is to patrol 
the galaxy, and to seek out and destroy the 
ships of the Klarian fleet. At your command 
is the starship Lexington. The Lexington 
has a wide variety of weapons, sensors and 
other devices useful in your mission. There 
are two kinds of Klarian ships Regular and 
Super. Regular Klarians have an average 
energy supply of 5000 to 12000 quarks while 
Super Klarians have 12500 to 15000 quarks 
and are protected from some of the Lex- 
ingtons' weapons and attack strategies . . . 
Disk Only/Applesoft $19.95 

WORLD OF ODYSSEY -An adventure 
game utilizing the full power of Disk II, 
which enables the player to explore 353 
rooms on 6 different levels full of dragons, 
dwarfs, ores, goblins, gold and jewels. The 
program allows the player to stop the game 

and to resume at a later time 

Disk Only/Applesoft $24.95 

GALACTIC EMPIRES -Pits 1 to 20 players 
against each other and the computer in a 
struggle for control of up to 40 star 
systems. The players compete by sending 
out fleets of ships to capture neutral 
planets and to attack the colonies of other 
players. The victor is the player who con- 
trols the most stars by game's end 

Applesoft $14.95 



Dealer Inquiries Invited 

Visa and MasterCard, Check or Money 
Order Include $2.00 for shipping and 
handling. C.O.D. $2.00 additional. 



'Apple II and Applesoft are the registered 
trademarks of APPLE COMPUTER INC. 

POWERSOFT 



k 



P. O. BOX 157 

PITMAN, NEW JERSEY 0807 

(609) 589-5500 



J 



030D 


9530 




STA 


NUMBER, X 




030F 


C90D 




CMP 


#$0D 




0311 


F004 




BEQ 


PULSE 




0313 


C8 




INY 






0314 


E8 




INX 






0315 


D0F4 




BNE 


LP10 




0317 




/ 








0317 


A200 


PULSE 


LDX 


#$00 




0319 


BE0BA0 




STX 


$A00B 




031C 


BE0EA0 




STX 


$A00E 




031F 


A203 




LDX 


#$03 




0321 


8E02A0 




STX 


$A002 




0324 


BEOOAO 




STX 


$A000 




0327 


A200 




LDX 


#$00 




0329 


B530 


LP11 


LDA 


NUMBER, X 




032B 


C90D 




CMP 


#$0D 




032D 


F036 




BEQ 


DONE 




032F 


C930 




CMP 


#$30 


;IS IT A ZERO? 


0331 


D005 




BNE 


NTZERO 




0333 


A00A 




LDY 


#$0A 




0335 


4C3D03 




JMP 


RELAY 




0338 


38 


NTZERO 


SEC 






0339 


D8 




CLD 






033A 


E930 




SBC 


#$30 




033C 


A8 




TAY 






033D 




i 








033D 


A901 


RELAY 


LDA 


#$01 




033F 


BD00A0 




STA 


$AO00 


;CL0SE RELAY R2 


0342 


BA 




TXA 






0343 


48 




PHA 






0344 


A20F 




LDX 


#$0F 


;800 MS INTERDIGIT 


0346 


20C903 


LP12 


JSR 


TIM50 




0349 


CA 




DEX 






034A 


D0FA 




BNE 


LP12 




034C 


68 




PLA 






034D 


AA 




TAX 






034E 


A900 


LP14 


LDA 


♦ $00 




0350 


8D00A0 




STA 


$A000 


;0PEN RELAY Rl 


0353 


20D603 




JSR 


TIM64 




0356 


A901 




LDA 


♦ $01 




0358 


8D00A0 




STA 


$A000 


;CL0SE RELAY Rl 


035B 


20BC03 




JSR 


TIM36 




035E 


88 




DEY 






035F 


D0ED 




BNE 


LP14 




0361 


E8 




INX 






0362 


4C2903 




JMP 


LP11 




0365 


A9FF 


DONE 


LDA 


#$FF 




0367 


8D00A0 




STA 


$A000 


;OPEN RELAY R2 


36A 


A204 




LDX 


#$04 




036C 


207C03 




JSR 


MSGSUB 




036F 


203CE9 




JSR 


READ 




0372 


C959 




CMP 


#'Y' 




0374 


D003 




BNE 


REDO 




0376 


4CE902 




JMP 


DIALIT 




0379 


4C1002 


REDO 


JMP 


GO 




037C 












037C 




;** SUBS ** 




037C 












037C 


2013EA 


MSGSUB 


JSR 


CRLOW 




037F 


BD4104 




LDA 


MSGTB0.X 




0382 


8504 




STA 


MSGPTR 




0384 


BD4704 




LDA 


MSGTB1,X 




0387 


8505 




STA 


MSGPTR+1 




0389 


A000 




LDY 


#$00 




0386 


B104 


MSLP 


LDA 


(MSGPTR) ,Y 




038D 


C93B 




CMP 


#•;■ 




038F 


F006 




BEQ 


MSOUT 




0391 


207AE9 




JSR 


OUTPUT 




0394 


C8 




INY 






0395 


D0F4 




BNE 


MSLP 




0397 


60 


MSOUT 


RTS 






0398 




f 








0398 


18 


INCPTR 


CLC 






0399 


D8 




CLD 






39A 


A500 




LDA 


PNTR 




039C 


6901 




ADC 


#$01 




039E 


8500 




STA 


PNTR 




03A0 


8D0002 




STA 


$200 




03A3 


A501 




LDA 


PNTR+1 




03A5 


6900 




ADC 


#$00 




03A7 


8501 




STA 


PNTR+1 
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03A9 8D0102 




STA $201 


03AC C503 




CMP BTMPTR+1 


03AE 900A 




BCC OKO 


03B0 D006 




BNE NOTOK 


03B2 A500 




LDA PNTR 


03B4 C502 




CMP BTMPTR 


03B6 9002 




BCC OKO 


03B8 38 


NOTOK 


SEC 


03B9 60 




RTS 


03BA 18 


OKO 


CLC 


03BB 60 




RTS 


3BC 


• 




03BC A9A0 


TIM36 


LDA #$A0 ;36 ME; 


03BE 8D08A0 




STA $A008 


03C1 A98C 




LDA #$8C 


03C3 8D09AO 




STA $A009 


03C6 4CE003 




JMP TIMOUT 


03C9 


; 




03C9 A950 


TIM50 


LDA #$50 ;50 MS! 


03CB 8D08AO 




STA $A008 


03CE A9C3 




LDA #$C3 


03DO 8D09A0 




STA $A009 


03D3 4CE003 




JMP TIMOUT 


3D6 


f 




03D6 A900 


TIM64 


LDA #$00 ;64 ME 


03D8 8D08A0 




STA $A008 


3DB A9FF 




LDA #$FF 


03DD 8D09AO 




STA $A009 


03E0 


7 




03E0 ADODAO 


TIMOUT 


LDA $A00D 


03E3 2920 




AND #$20 


03E5 F0F9 




BEQ TIMOUT 


03E7 60 




RTS 


03E8 






03E8 


;** TABLES ** 


03E8 






03E8 444941 


MO 


ASC 'DIAL(D) OR ENTER(E)?;' 


03EB 4C2844 






03EE 29204F 






03F1 522045 






03F4 4E5445 






03F7 522845 






03FA 293F3B 






03FD 4E4557 


Ml 


ASC 'NEW(N) OR ADD (A)?;' 


0400 284E29 






0403 204F52 






0406 204144 






0409 442841 






040C 293F3B 






040F 4F5554 


M2 


ASC 'OUT OF MEMORY.;' 


0412 204F46 






0415 204D45 






0418 4D4F52 






041B 592E3B 






041E 4E414D 


M3 


ASC 'NAME?;' 


0421 453F3B 






0424 524544 


M4 


ASC 'REDIAL?;' 


0427 49414C 






042A 3F3B 






042C 43414E 


M5 


ASC 'CAN''T FIND THAT NAME;' 


042F 275420 






0432 46494E 






0435 442054 






0438 484154 






043B 204E41 






043E 4D453B 






0441 


; 




0441 E8 


MSGTBO 


BYT MO 


0442 FD 




BYT Ml 


0443 OF 




BYT M2 


0444 IE 




BYT M3 


0445 24 




BYT M4 


0446 2C 




BYT M5 


0447 


1 




0447 03 


MSGTB1 


HBY MO 


0448 03 




HBY Ml 


0449 04 




HBY M2 


044A 04 




HBY M3 


044B 04 




HBY M4 


044C 04 




HBY M5 



New Publications 

(Continued from page 25) 



Graphics 

IEEE Computer Graphics and Applica- 
tions, a new quarterly which began in 
January 1981, is published by the IEEE 
Computer Society 1 10662 Los Vaqueros 
Circle, Los Alamitos, California 
90720). It is edited for designers and 
users in all computer graphics applica- 
tion areas such as business graphics; 
test and measurement; process control 
and instrumentation; navigation and 
guidance; consumer electronics; 
military electronics; patient care; 
petrochemicals; communication; trans- 
portation; CAD/CAM; VLSI design; 
education. An annual subscription is 
$8.00 plus society member dues 
($14.00) or $23.00 for nonmembers. 

Computer Graphics News is a bi- 
monthly tabloid to begin in September 
in conjunction with the annual meet- 
ing of the National Computer Graphics 
Association in Baltimore. The news- 
paper will be sponsored by the associa- 
tion and published by Scherago 
Associates, Inc. (1515 Broadway, New 
York, New York 10036). The publisher 
plans an initial controlled circulation 
of 25,000 to individuals interested in 
computer graphics. 

Biomedical 

Computers in Psychiatry/Psychology 

is a 16-page bimonthly newsletter 
founded in 1978, devoted to the field of 
mental health. It covers such subjects 
as the computerization of the profes- 
sional office and computer-based 
diagnosis. An annual subscription is 
$25.00 from Computers in Psychiatry/ 
Psychology, 26 Trumbull Street, New 
Haven, Connecticut 06511. 

National Report on Computers and 
Health is an 8-page, biweekly newslet- 
ter edited for health professionals and 
the information processing industry — 
vendors, users, consultants, associa- 
tions, and government. It covers scien- 
tific developments, market intelligence, 
new products, government regulatory 
activities, and new initiatives in 
university medical centers, in the 
National Center for Health Services 
Research, and among consultants. An 
annual subscription is $192.00 for 25 
issues from National Report, P.O. Box 
40838, Washington, D.C. 20016. 

(Continued on page 101) 
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INTERACTIVE GRAPHICS/GAME LANGUAGE 

FORTHEPET/CBM 

VIGIL is an exciting new interactive language for your 
PET/CBM micro. VIGIL Video Interactive Game 

Interpretive Language - is an easy to learn graphics and 
game language that tets you quickly create interactive 
applications. 

* More than 60 powerful commands permit you to easily manipulate graphics 
figures on the screen 

* Double density graphics give you 80 X 50 plot positions on your 40 column 
PET/CBM 

* Large number display capability, access to two event timers and tone jjeneration 
(it you have ext. speaker) 

* Load and save your VIGIL programs to cassette or diskette 

* Nine interactive programs demonstrate the power of VIGIL - Breakout. 
SpaceWar.AntiAircraft, U.F.O., SpaceBattle. Concentration, Maze, Kaleidoscope 
4 Fortune 

* Comprehensive user's manual with complete listings of 
enclosed programs 

VIGIL comes on cassette, or diskette ready to run on any 40 column 
PET/CBM micro with at least 8K of memory. Specify ROM-set 
when ordering. 6502 listing of the VIGIL Interprets! 
available separately. ,._ „ „ 

US & Canada Foreign 

VIGIL FOR Pet/CBM on Cassette or Diskette {w/9 programs) $35 $40 

VIGIL User's Mannual {refundable with software) $10 $12 

VIGIL Interpreter listing (6502 Assembly language) $25 $30 

PET MACHINE LANGUAGE GUIDE $8 $10 



UMWIIjtll l ABACUS SOFTWARE 

P. 0. Box 7211 

Grand Rapids, Michigan 49510 







Prices include postage. Michigan residents include 4% sales tax. Orders must be 
prepaid or via bankcard (Mastercard,' VISA, Eurocard, Access, etc.). Include card 
number and expiration date. 

(C) 1981 by Roy Wainwright 
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Apple II Shape Table Editc 

makes shape table construction and editi 

SlMrLt 11 editing commands allow 

user to create shapes, modify existing shapes, save z 
retrieve shape tables for use with the DRAW, XDRA 

and SHLOAD commar 

of APPLE II BASIC. Ri 

under firmware Apples 

Floating point BASIC v 

32KRfi 



r on cassette 

with user's manual 

or $ 



$995^ 

M. for manual only 
(refunded with purchase) 



Ismail systems I 
software | 

P.O. Box 28302 . 

^Washington, DC 200051 

Apple II and Applesoft 

are trademarks of 
Apple Computer. Inc. 



| | Cassette W/Manual QJ Mant. 



iName. 



L Address. 
W City- 



^State- 



-Zip. 



Apple Computer 48K $1 199 

Axiom IMP 2 Printer $659 
with full graphics and interface 



Call for prices on: 





Peachtree Software 

BPI Software 

Atari 

Apple 

California Computer 

Mountain Computer 

Epson 

D.C. Hayes 



Call for special Atari prices. 



P M COMPUTERS (404) 860-971 1 

P.O. Box 6525, Mobile, Alabama 36660 
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m sensational 
( j4pple II software 



creative 

computing 

software 



Haunted House 



Cassette CS-400S 

$11.95 
Requires 16K 



Super Invasion 




Cassette CS-4006 $19.95 
Requires 16K Apple II or Apple II Plus 

This original invasion game features superb high res- 
olution graphics, nail biting tension and hilarious antics 
by the moon creatures. Fifty-five aliens whiz across the 
screen, quickening their descent, challenging you to 
come out from behind your blockades and pick them off 
with your lasers. A self-running attract mode makes it 
easy to learn and demonstrate the game Game paddles 
are required. 



It's 6:00 pm and you have until midnight to find the secret 
passageway out of a large rambling HAUNTED HOUSE. During 
your search you'll encounter skeleton keys, charms, friendly 
ghosts, and evil spirits. Sound effects add to the eerleness. The 
layout changes in every game. 




Outdoor Games 

Cassette CS-4010 $14.95 4 Programs Requires 16K Apple II or Apple II Plus 





Space War 

Take command in Space War. Select from 
five game modes, including reverse gravity, 
and the battle begins. Challenge your op- 
ponent with missle fire, force him to collide 
with Ihe sun or to explode, upon re-entry 
from hyperspace. Be wary/ . . He may circle 
out ol sight and re-appear on the opposite 
side of the galaxy.(This is the classic MIT 
game redisgned especially for the Apple. I 



Cassette CS-40O9 $14.95 

Requires 16K 

Apple II or Apple II Plus 



Forest Fire. Use chemical retardants and 
backfires to control raging forest fires. 



Fishing Trip. Try to catch flounder and 
salmon while avoiding logs, sharks, bad 
weather and running out of fuel. 



Treasure Island I. Your map shows, buried 
treasure but unfortunately you don't know 
where you are. Try to find the treasure 
while moving about and observing your - 
surroundings. You have a 3-day supply of 
food and water. You may find useful objects 
(compass, weapons, a horse) but watch out 
for hazards (robot guards, pirates, caves, 
crocodiles, mountain lions and more) 

Treasure Island II. Same game except you 
have to use a metal detector to find the 
treasure. 




Outdoor Games and 
Haunted House 

Disk 4504. $24.95 

Requires 32KApplellor Apple II Plus 

This disk contains all five programs from 
cassettes CS-4005 and CS-4010. 



Acole is Ihe registered trademark ol Arjple Computer Inc 



Super Invasion 
Space War 

DiskCS-4508 $29.95 
Requires 48K Apple II or Apple II Plus 



Order Today 



Toorderary of these software packages, 
send payment plus S2.00 postage and 
handling per order to Creative Computing 
Morris Plains NJ 07950 Visa. MasterCard 
and American Express orders may be called 
in toll-free 



Order today at no risk If you are not 
completely satisfied, your money will be 
promptly and courteously refunded 

Attn: Doreen 

Creative Computing Soltware 

Morris Plains NJ 07950 

Toll-free 800-631-8112 

In NJ. 201-540-0445 



creative computing software 



ft 
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Hot pursuit 
through space 
and the 
vortices 
of time! 





PRESENTS. . . 

Cinte P«om1 

The fallen Time Lord, who presumptuously calls-himself The Master, is at large. 

The elders of Waldrom have supplied you with the hyperspace-worthy vessel 
Tardus, and commissioned you to eliminate the evil "Master". Your resources 
include clones who will fight for you, the formidable CRASER weapons of the Tardus, 
and magic weapons such as Fusion Grenades and Borelian Matrix Crystals. 

Traveling through hyperspace in search of the evil one, you will encounter Time 
Eaters, Neutron Storms, and other alien creatures and phenomena. Entering real 
space to search planets, you will encounter still other dangers. You will enter native 
settlements to buy food and supplies — or to fight for survival. 

And once you find The Master can you destroy him? 

. Based on Dr. Who of PBS fame. 

■ Apple Integer Basic, 

Disk, 48K . . . $29.95 

T5€:HflRDSID€ 




6 South St . Miltord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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TSE-HARDSIDE HAS IT ALL 

IN ONE! 

How many times have you wished that there was a single source for v 
your personal computer needs? Well look no further, TSE- 
HARDSIDE, located in pleasant New Hampshire, has virtually every 
conceivable item for your micro. Whether you're shopping for your 
Apple, Pet, TRS-80™ or Atari, TSE-HARDSIDE has it all. We stock 
hardware, software, books, magazines and specialty items for all of 
the popular machines. So the next time you're out shopping for your 
system don't be surprised, be satisfied. Remember the name TSE- 
HARDSIDE as your choice for quality, service and reliability. 
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NIBBLE IS TERRIFIC 

(For Your Apple) 

NIBBLE 18: The Reference for Apple computing! 

HUBBLE IS: One of the Fastest Growing new Magazines in 
the Personal Computing Field. 

NWBLEIS: Providing Comprehensive, Usefuland 
Instructive Programs for the Home, Small Business, and 
Entertainment. 

NIBBLE IS: A Reference to Graphics, Games, Systems 
Programming Tips, Product News and Reviews, Hardware 
Construction Projects, and a host of other features. 

NKBLEIS: A magazine suitable for both the Beginner and 
the Advanced Programmer. 

Each issue of NIBBLE features significant new Programs of Commercial Quality. Here's 
what some of our Readers say: 

- "Certainly the best magazine on the Apple II" 

- "Programs remarkably easy to enter" 

- "Stimulating and Informative; So much so that this is the first computer magazine I've 
subscribed to!" 

- "Impressed with the quality and content." 

- "NIBBLE IS TERRIFIC!" 

In coming issues, look for: 

□ Stocks and Commodities Charting □ Assembly Language Programming Column 

□ Pascal Programming Column □ Data Base Programs for Home and Business 

□ Personal Investment Analysis □ Electronic Secretary for Time Management 

□ The GIZMO Business Simulation Game 

And many many more! 

NIBBLE is focused completely 
on the Apple Computer systems. 

Buy NIBBLE through your local 
Apple Dealer or subscribe now with 
the coupon below. 

Try a NIBBLE! 




NOTE 

hrst Clavs or Air Mail is required for all APO. hPO and all foreign addresses 

with the following additional amounts Africa: North $32.00 

- Europe $32.00 Central $43.00 

- Mexico and Central America $21.00 South $43.00 

- South America $32.00 par East, Australia $43.00 

- Middle East $36.00 Canada $18.00 
Alf payments must be in U.S. funds drawn on a U.S. bank. 

y 1980 hy MICRO-SPARC . INC . Lincoln. Mass OI77.V All rights reserved 
'Apple II is a registered trademark ol Apple Compuier Company 



nibble 



Box 325, Lincoln, MA. 01773 (617) 259-9710 

I'll try nibble! 

Enclosed is my $17.50 (for one year). 
(Outside U.S., see special rates on this page.) 

□ check □money order 

Your subscription wit! begin with the next issue published after 
receipt of your check/money order. 



Name . 



Address. 

City 

State 



Zip_ 
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Macros for Micros 
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An introduction to the MACRO 
assembler. 

John Figueras 

65 Steele Rd. 

Victor, New York 14564 



Macro definition is a common feature 
of the advanced assemblers available on 
large computers. To my knowledge, 
the only 6502-based assembler with 
this capability is the ASSM/TED 6502 
Macro Assembler sold by Carl Moser. 1 1 
will describe practical applications of 
macros to programming an Apple II 
computer, and show how to set up a 
macro library that can be stored on 
disk, and which may be used as a 
subroutine generator to supply utilities 
that will simplify machine language 
programming. 

A macro definition is a predefined 
block of assembler code that is 
assembled into the machine language 
program wherever the macro is called. 
An example of a macro definition is 
shown in figure 1. (All examples use 
the notation of ASSM/TED and were 
written for the Apple II computer.) The 
three exclamation marks designate the 
subsequent name, KEYB, as the name 
of a macro definition. It is by this name 
that the macro is called in the program. 
The pseudo op-codes, .MD and .ME 
define, respectively, the beginning and 
end of the macro definition. The state- 
ment) s) falling between these comprise 
the body of the definition. The macro 
in figure 1 doesn't do much— it simply 
calls the Apple keyboard routine. You 
might wonder "Why all the fuss for 
this?" But consider that we may now 
replace a call to the hexadecimal ad- 
dress $FD67 of a keyboard subroutine 
with the mnemonic, KEYB. Then, in 
creating a source program, to call the 
keyboard I simply use KEYB, which is 
much easier to remember than JSR 
$FD67. Essentially, macros allow you 
to create your own convenient pro- 
gramming symbols. 



A macro is called in an assembly 
language program by using the macro 
name as an opcode. (Examples will be 
shown latex.) When the program is 
assembled, code contained in the body 
of the macro definition will be inserted 
in place of the macro name wherever it 
occurs. For example, wherever I use the 
name KEYB, as defined in figure 1, the 
assembler will substitute the machine 
code equivalent, a JSR $FD67. If the 
body of this macro definition contained 
twenty assembly language instruc- 
tions, then all twenty statements 
would be assembled into the program. 
This can be a problem, since in- 
discriminate use of macros can lead to 
undesirable inflation in the amount of 
memory required for the program. 

It may be difficult for beginning 
machine language programmers to 
grasp the difference between a macro 
and a subroutine (at least, I had this dif- 
ficulty). There is a superficial 
resemblance between the two, since 
each is a block of statements that is 
called in a program. But the 
resemblance ends there. A subroutine 
is a block of code that occurs only once 
in a program and is called by a branch 
instruction, which diverts the program 
flow to the subroutine. Provision is 
made for a return to the calling program 
by storing a return address when the 
subroutine is called. A macro, on the 
other hand, produces in-line code dur- 
ing assembly each time the macro is 
called. While they use more memory 
space, macros are more efficient 
because they do not require subroutine 
branch and return instructions. 

Application to Utilities Storage 

One problem facing the machine 
language programmer is that of hand- 
ling utility routines, particularly those 
for input/output operations. The Apple 
monitor contains a large number of 
these utilities, which may be called by 
the user's programs, with a JSR. The 
task of finding and interpreting these 



Figure 1: Example of a Macro Definition 

>PR 

;READ KEYBOARD. # CHAR IN NCHAR 
1MKEYBRD .MD 

JSR SFD67 

STX -NCHAR 

.ME 

.-DISPLAY BUFFER ON CRT 
i 1 1DISPLAY .MD 



Figure 2; Macro Library of I/O Utilities 



>PR 






;READ KEYBOARD. # CHAR IN 


NCHAR 


! ! IKEYBRD 


-MD 

JSR $FD67 

STX NCHAR 

.ME 




•DISPLAY BUFFER ON CRT 




! ! 1DISPLAY 


.MD 
SEC 
LDX #$00 




LOOPl 


LDA BUFFER, X 

ORA #$80 

JSR $FDF0 

INX 

CPX NCHAR 

BCC ...LOOPl 

.ME 




.-ASSIGN FIXED ADDRESSES 




! 1IINIT 
NCHAR 


.MD 
.OS 
.ES 
.DS 01 




BUFFER 


.DE $0200 




ZPAGE 


.DE $4A 
.ME 





// 



Figure 3: Example of Keyboard/CRT I/O 

; SAMPLE PROGRAM 1 

;READ & DISPLAY KEYBOARD ENTRY 

.BA $5000 

INIT 
;DEFINE SUBROUTINES 



VIDEO 



KEYIN 



TRIAL 



DISPLAY 

RTS 

KEYBRD 

RTS 

JSR KEYIN 

JSR VIDEO 

RTS 

.EN 
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utilities has been considerably eased by 
the publication of The Apple H Monitor 
Peeled 2 , which describes the functions 
and locations of a large number of im- 
portant routines. These include reading 
the keyboard, sending characters to a 
CRT, defining the location of the input 
buffer, cursor manipulation and many 
others. Until this volume was released, 
it was difficult to know how to use the 
monitor routines that Apple kindly 
listed in their reference manual 3 , 
without any explanation. 

Though the information for apply- 
ing the monitor routines is now 
available, one still needs to know a 
number of memory addresses to use 
them. Casual programmers, like 
myself, have to look these up repeated- 
ly because we forget the addresses from 
one programming session to another. 
Moreover, many of the routines require 
small drivers to run them, and I find 
that I can't remember how I wrote the 
driver last time any better than I can 
remember the addresses! It would be 
convenient, therefore, to pre-program 
the most-needed utilities, store them 
on disk, and call them from disk for in- 
sertion into a program. One would then 
have a subroutine library, like those 
used to support programming on large 
computers. Or, (and this is the direc- 
tion I chose), one could store the same 
information in a macro library. 

The tendency of macros to use up 
memory can be overcome by calling the 
macro inside a subroutine. The macro 
library is loaded into the ASSM/TED 
text buffer; the required subroutine is 
formed by setting up the desired 
subroutine name, calling the appro- 
priate macro out of the library into the 
subroutine, and closing with an RTS. 
The macro is assembled only once and 
may now be used repeatedly by means 
of subroutine calls, without direct use 
of macro calls. One can use macro calls 
directly, without subroutine calls. If 
the macro block appears only once in a 
program, or if it is very short, this 
avoids the overhead of subroutine calls. 
However, if the macro block is long, 
and is used more than once, then put- 
ting the macro call in a subroutine is 
more efficient. 

Sample Application: I/O Utilities 

Leaving these abstract considera- 
tions, let's look at some implementa- 
tions. Figure 2 is a listing of a small 
macro library comprising three 
modules. The first one, KEYBRD, 
allows the Apple keyboard to be read by 
means of a call to a monitor subroutine 
at $FD67. The monitor routine loads 



keyboard input into a text buffer 
located at $0200 and stores the 
character count in the X register. In the 
macro definition, this character count 
is transferred for later use to a memory 
location NCHAR. This memory loca- 
tion must be assigned before the macro 
is called. This is taken care of by 
another macro, INIT, which will be 
discussed later. 

The second macro definition, 
DISPLAY, sends the contents of the 
Apple r.ext buffer, character by 
character, to the CRT, by a call to a 
monitor subroutine at $FDF0. Note 
that the text buffer is addressed by a 
name, BUFFER, which is assigned in 
the macro, INIT. The character count, 
NCHAR, is required to control the 
number of characters sent to the CRT. 
This is the same count created in 
KEYBRD. The internal loop, ...LOOP1, 
is named with three opening dots, in 
accordance with Moser's requirements 
in ASSM/TED. This convention per- 
mits the macro definition to be used 
several times within a program. Each 
use will generate a new label to replace 
LOOP1, otherwise location conflicts 
for the label would occur. If the macro 
definition is used only once, this 
precaution is not necessary; I invoked 
it to allow greater freedom of use of the 
macro. 

The third macro definition, INIT, 
initializes several assembler 
parameters and assigns storage for 
variables. The .OS pseudo-op must be 
included in every source program to 
enable compilation of machine code. 
The pseudo-op .ES enables the listing 
of the machine code derived from ex- 
pansion of macros. If it is not present, 
the machine code due to macros will 
not appear in the output listing. Since I 
want .OS and .ES to appear in the pro- 
grams I write, I include them in INIT, 
and avoid the need to remember them. 
Also included in INIT is the assignment 
of storage for NCHAR (.DS 01 reserves 
one byte of storage), assignment of the 
address of the input buffer, $0200, to 
the label BUFFER, and definition of a 
zero page address, ZPAGE. Note that 
the three macros taken together have 
eliminated the need to remember four 
addresses, and have given me by-name 
access to two variables, NCHAR and 
BUFFER. Because of its function, INIT 
must be the first statement in a pro- 
gram after definition of program origin, 
since it defines locations of variables 
needed by other macros. 

Figure 3 illustrates the use of 
macros in subroutine generation. The 
program, TRIAL, reads the keyboard 



Figure 4: Example Using Direct Macro 
Calls 



TRIAL 



.BA $5000 

INIT 

KEYBRD 

DISPLAY 

RTS 

.EN 



Figure 5: Display a Message from 
Memory 



>; SAMPLE 


PROGRAM 2 


;DISPLAY 


MESSAGE IN MEMORY 




.BA 


$500 




INIT 


; DEFINE 


SUBROUTINE 


VIDEO 


DISPLAY 




RTS 




MSG 


.BY 


■MESSAGE 1' 


TEMP 


.BY 


09 


TRIAL 


LDA 


TEMP 




STA 


NCHAR 




LDX 


#$00 


LOOP 


LDA 


MSG.X 




STA 


BUFFER, X 




INX 






CPX 


NCHAR 




BNE 


LOOP 




JSR 


VIDEO 




RTS 






.EN 





// 

Figure 6: Macros for Data Transfer with 
Address Passing 

,-MACROS TO TRANSFER CHARS 
;FR0M MEM TO BUFFER 
MIPASSADR .MD (MSG CNT) 

LDA CNT 

STA NCHAR 

LDA #L,MSG 

STA ZPAGE 

LDA #H,MSG 

STA ZPAGE+01 

.ME 
M1MEMBUFF .MD 

LDY #$00 
L00P2... LDA (ZPAGE) ,Y 

STA BUFFER, Y 

INY 

CPY NCHAR 

BNE L00P2 

.ME 
// 

Figure 7: Program to Display Two 
Messages Using Macros in Figure 6 
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; SAMPLE 


PROGRAM 3 


;DISPLA\ 


TWO MESSAGES FROM MEM 




.BA $5000 




INIT 


; DEFINE 


SUBROUTINES 


MESSAGE 


MEMBUFF 




RTS 


VIDEO 


DISPLAY 




RTS 


MSG1 


.BY 'FIRST MESSAGE' 




$8D 


CNT1 


.BY =-MSGI 


MSG2 


.BY 'SECOND MESSAGE' 




$8D 


CNT2 


.BY =-MSG2 


TRIAL 


PASSADR (MSG1 CNT1) 




JSR MESSAGE 




JSR VIDEO 




PASSADR (MSG2 CNT2) 




JSR MESSAGE 




JSR VIDEO 




RTS 




.EN 


// 






No. 37- June 198 



■ I -f mm 



S!ffi^sc3BiSffi3Earaie^5we»«i:*!«TfW! 



II 



and displays the entry. (A double 
display will occur because the monitor 
routine KEYBRD also provides an 
echo.) The program is assigned an 
origin at $5000 by the pseudo-op .BA. 
INIT is called to initialize variables and 
pseudo-ops. Two subroutines are defin- 
ed. The first one, VIDEO, sends 
characters to the CRT and its body is 
loaded from the macro DISPLAY (figure 
2). The second one, KEYIN, enables 
keyboard input; it is loaded from the 
macro KEYBRD (figure 2). The simple 
structure of these subroutines masks 
the complexities that may be built into 
the macro definitions. The program 
starts at the label TRIAL. 

Following invocation of the two sub- 
routines, RTS returns control to the 
assembler. The closing .EN defines the 
end of the program to the assembler. 
This program really does not require the 
use of subroutines, but is a simple ex- 
ample of how subroutines could be 
defined. Since the macros in figure 3 are 
used only once, the very brief program 
in figure 4, based on direct macro calls, 
is a more reasonable implementation. 

The second program example, 
figure 5, displays a message stored in 
memory (that is, one written into the 
program) . The macros defined in figure 
2 are used, except for KEYBRD, since 
there is no keyboard input. In figure 5, 
the subroutine VIDEO is defined as 
before. The message to be displayed is 
stored as a character string in a location 
labelled MSG (.BY means "define 
bytes"). The number of characters in 
the message is stored in a location 
named TEMP. 

Program TRIAL begins by transfer- 
ring the character count stored in 
TEMP to NCHAR, where it can be used 
by DISPLAY. .The loop makes a 
character-by-character transfer from 
message location MSG to the display 
BUFFER, which is accessed in the 
subroutine VIDEO. 

We note in the above program that 
code is used to transfer data from 
memory into the display buffer. Since 
this transfer is likely to be used 
repeatedly as a basic operation in 
displaying labels and instructions, it 
would be desirable to turn this code in- 
to a macro definition for use in the 
body of a subroutine. An immediate 
difficulty arises from the fact that the 
message and character count (MSG and 
TEMP) occur at fixed addresses. Other 
messages and counts which are at dif- 
I ferent addresses are not accessible to 
this program. If a subroutine is set up to 
pass data to the display buffer from 
memory, we would like to be able to 



pass the addresses of the message and 
the message count to the subroutine, so 
that it can be applied wherever these 
data fall in memory. It turns out that 
passing addresses to a subroutine re- 
quires a surprising amount of code (see 
the remarks by R.C. Vile 4 ). 

However, the macro language in 
ASSM/TED permits addresses to be 
passed to macro definitions. We would 
like to take advantage of. this without 
the high memory overhead that 
repeated use of large macros might en- 
tail. The solution is to partition the 
macro into a small segment that does 
the address passing, and a larger seg- 
ment that operates on the data in the 
passed addresses. Addresses passed by 
the small segment are stored in fixed 
memory locations accessible to the 
large segment. In programming applica- 
tions, the small segment could be used 
without much memory overhead as a 
macro, and the large segment could be 
used as the body of a subroutine. An ex- 
ample of such a partition appears in 
figure 6, which contains the data 
transfer segment of the program in 
figure 5. 

The first macro definition in figure 
6, PASSADR, enables the passing of 
two addresses, MSG and CNT, of the 
message and message count. In 
ASSM/TED convention, these ad- 
dresses appear as arguments in paren- 
theses following the macro name. 
PASSADR uses the address of CNT, 
whatever that may be in the program, 
to transfer the count stored there to the 
pre-defined location NCHAR. The high 
and low bytes of address MSG are 
stored by PASSADR in zero page ad- 
dresses ZPAGE and ZPAGE + 01. The 
actual moving of data from memory 
location MSG to the display buffer is 
done in the second macro, MEMBUFF. 
This routine uses indirect indexed ad- 
dressing based on ZPAGE for getting 
the data in MSG. The ZPAGE location 
must, of course, be defined,, and this is 
done in the macro INIT (see figure 2). 
MEMBUFF can be used to form the 
body of a subroutine. 

An application of these two new 
macros for displaying two messages 
stored in memory appears in figure 7. 
The messages are stored as bytes (.BY) 
in addresses MSG1 and MSG2. The re- 
quired character counts are calculated 
by using the ASSM/TED pseudo-op 
" = " to get the current value of the pro- 
gram counter, and then subtracting 
from it the address of the coiTesponding 
message (e.g., = - MSG1). Since the 
program counter is read after the defini- 
tion of the message, the difference be- 



tween that reading and the address of 
the beginning of the message must give 
the message length in bytes. The 
messages themselves are terminated by 
a carriage return, $8D, to allow each 
message to appear on a separate line. 
PASSADR is used twice in the program 
with two different sets of addresses in 
parentheses. PASSADR is used as a 
macro in the program, while MEM- 
BUFF is used to supply the body of a 
subroutine, MESSAGE. 

The emphasis so far has been on the 
use of macro definitions as a means to 
create the equivalent of a subroutine 
library. There are other ways in which 
a subroutine library may be created, 
but I consider the use of macro defini- 
tions described here as the least 
troublesome and most flexible way in 
which to formulate such a library. 
Given the language resources of the 
Apple computer, it is also the most 
memory-conserving way. 

Conclusion 

You may be persuaded by now that 
the use of macro definitions offers a 
very powerful iprogramming tool to the 
machine ianguage programmer. Its 
most interesting spin-off is that it 
allows you to design your own pro- 
gramming language at the machine 
code level. The examples in this article 
barely scratch the surface of possible 
applications. One area in which macros 
are useful is arithmetic operations. One 
can design macros for addition, sub- 
traction, multiplication and division of 
sixteen bit numbers, and define double 
precision versions of these macros. The 
addresses of the numbers to be operated 
on could be passed as arguments in the 
macro definitions. And then there are 
high and low resolution graphics... and 
floating point arithmetic... and array 
definition... and.... 
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WHAT IS THE 
COMMUNITY 
COMPUTERIST'S 
DIRECTORY ? 

The Community Computerist's Directory is 
similar to a telephone book with these major dif- 
ferences: it focuses on the driving force behind 
the information revolution, the people and 
organizations who are producing, buying, using 
and experimenting with computers; and since 
lists of names alone are not useful information, 
each listing in the directory includes a statement 
of up to one thousand characters written by each 
participant describing their projects, interests, 
needs and resources, or a statement of their 
thoughts about the use of computers in general; 
the directory is also a public forum. 

The Community Computerist's Directory is the 
most inexpensive way for people, businesses and 
organizations to advertise themselves, their 
abilities, needs, resources, products, services, 
applications, interests, or ideas. The directory is 
national in scope, local in focus and people 
oriented. Like a telephone book, it stays next to 
the computer as the one reference used most by 
computerisis. 

To aid in finding who or what you need, the 
Directory provides extensive cross-indexing: not 
only indexed by zip code and last name. . .but also 
by key words related to the text of the listing as 
well as the system used. Inclusion of data base JD 
numbers will facilitate electronic conferencing 
and mail between directory subscribers. Lists of 
clubs and user groups, publications, com- 
puterized bulletin boards and more add to its 
usefulness. After all, what good would phones be 
without phone books?!! 
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C&unity 
Computerist's 

Directory 

PO BOX 405 
FORESTVILLE, CA 95436 
PHONE: (707) 887-1857 



OHIO SCIENTIFIC 

S-FORTH — a full implemen- 
tation of Fig-FORTH including 
editor, virtual disk sub-sys- 
tem, and compatibility with 
OS65D-3 on 5 1 /." or 8" disk. 
$34.95. 

Source listing $24.95. 

Both for $49.95. 

TOUCH TYPING MADE EASY 

— 15 lesson set teaches you 
to "touch type". Now also 
available for the C1P. 8K. 
$19.95. 

TITANIC QUEST — a real time 
search where you risk your re- 
maining supplies to find the 
Titanic. 8K. $6.95. 

TEXT EDITOR - the best 
screen text editor available for 
OSI C4P, C8P disk systems. 
$19.95. 

Send for our FREE 14 page 
software and hardware cata- 
log. Includes photos and com- 
plete descriptions of all game, 
utility, and business software. 

Aurora Software Associates 

h P.O. Box 99553 
■*J Cleveland, Ohio 44199 I 
«m (216)221-6981 




NEW & USED SYSTE 

• HARDWARE 

• SOFTWARE 

• PARTS 

• ACCESSORIES 

■SERVICE AVAILABI 

SLUSET ELECTTOrii 
2254 TARAVAL ST. 
SAN FRANCISCO, CA 94 
(415) 665-8330 





THE SAGA CONTINUES , 

IV TflUUfllfTS LAST R6DOU8T 

The cruel Emperor Tawala has been forced from 
his throne on the world of Galactica and has fled 
for his life to the planet of Farside, where he and 
a small bank of adherents prepare to make their 
last stand. Extreme solar conditions have 
isolated Farside from the rest of the galaxy, and 
so it remains to Benthi, leader of the local insur- 
rectionists, to press the final assault on Tawala 
and his minions. 

TAWALA'S LAST REDOUBT puts you in the 
position of rebel leader. You must intercept and 
decipher Tawala's secret messages to his sup- 
porters, form alliances with local chiefs, detect 
Tawala's spies in your midst, separate hard intel- 
ligence from enemy disinformation, avoid Ta- 
wala's military forays against you and, finally, 
lead the assault against the Prince's stronghold. 

Minimum Configuration: 
TRS-80 Cassette, 16K, Level II, $19.95 
TRS-80 Disk, 32K, $24.95 
APPLE Disk, 48K with APPLESOFT, $29.95 
'Apple, Apple II Plus and Applesoft are trademarks of Appl 



Apple Galaxian — In brilliantly colored i 
Galaxians swoop down from all s 
dazzlingly swift attacks to do battle i 
lone defender. This faithful rendition of t 
popular of all bar games may drive yoi 
the bend, but think of all the quarters 
saving! Apple II Integer or Plus, 48K disk 

How to order: Ask your dealer or send < 
money order for the exact retail price to 

Brtfderbuncl Softw 

Box 3266, €ugene, Oregon 97* 
Call (503) 343-9024 to order. NO CHA 
FOR SHIPPING AND HANDLING! 
Visa and Mastercard accepted. 

We've got morel Send for our free cat 

> Computer Co. TRS-80 is a trademark of Ra 
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Create a Data Disk 
for DOS 3.2 and 3.2.1 
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Save space on your Apple data 
disks by eliminating the copy of 
DOS. 



Glenn R. Sogge 

Fantasy Research & Development 

P.O. Box 203 

Evanston, Illinois 60204 



According to the information in the 
DOS 3.2 manual, an initialized disk 
contains 403 sectors (of a total 455) 
that can be utilized for the storage of 
user information. (User information 
also includes some file overhead of 
track and sector lists.) This amounts to 
103,168 bytes of memory space or 
88.57% of the maximum storage 
capacity of the disk. (The maximum 
storage is 13 * 35 * 256 = 116,480 
bytes.) This article explains how to in- 
crease the user storage to 112,640 bytes 
or 96.70% of the maximum— an in- 
crease of 8.13%! Given the limited 
storage capabilities of 5 14 inch disks to 
begin with, this improvement can be 
quite important — especially for 
business and data base software. 

The cost of this increase in storage 
is the loss of the DOS on the disks. 
This is not too high a price, however, 
because we usually don't need dozens 
of copies of DOS floating around. In 
general, the user will boot the system 
up and use the DOS that is then 
residing in the machine, using the 
disks only for information storage and 
handling. Even though a program may 
use many different disks, the DOS that 
is written on each one is generally 
useless, but still takes up three tracks 
of space (9984 bytes). 

One advantage of having the DOS 
on every disk is that any disk is 
bootable. The procedure outlined here 
will create data disks that are bootable 
with an overhead of only 2 sectors (512 
bytes) besides the directory track |track 
$111. 



A Note on Notation 

In this article, tracks, sectors, and 
relative bytes (within the sector) will 
be indicated like this: 

1 1 ,C,AC 

The contents of such locations will be 
indicated like this: 

(11,C,AC) = FF 



or 



(1 1 ,4,00) = 1 FD 38 
(successive bytes) 

All numbers will be in hexadecimal so 
the '$' should be assumed if not 
present. 



Beginnings 

The simplest way to gain more 
space is to change the bitmap in the 
VTOC to free up the sectors occupied 
by the DOS. By changing the contents 
of the bytes at (11, 0,38-43], we can de- 
allocate the sectors normally reserved 
for DOS. Several of the disk utilities 
commercially available have just such 
an "expunge" routine. Tbe problem 
with this simple method is that the 
disk will probably hang when booted, 
because either new information will 
have been stored in the sectors that 
contain the secondary boot code, or 
portions of DOS will keep disappearing 
as more information is stored. 

Since we want to free up this space 
anyway, we will begin by changing the 
bitmap and then worry about making 
the disk boot later. With one of the disk 
utilities available, read in the (11,0} 
sector and make the following changes, 
then rewrite it to the disk: 

(1 1 ,0,38) to FF EO 00 00 
(1 1 ,0,3C) to FF F8 00 00 
(11,0,40) to FFF8 00 00 



These changes free up all of the sectors 
of the first three tracks except for sec- 
tors and 1 of track 0. These will be 
used to make the disk bootable. 

How a Disk Boots 

When a disk boots, the first sector 
(0,0) is read into memory, unscrambled, 
and placed at $300 - $3FF. This code 
then begins reading in from sector (0,0) 
again and places the code into memory. 
The number of sectors of track zero 
that are to be read in, and where they 
are to be stored, can be easily modified. 
The byte at (0,0,FF) contains the 
highest sector value to read, times 8, 
and the byte at (0,0,FE) contains the 
page address of where to begin storing 
the code. 

After the track sectors are read in, 
the code jumps to the memory location 
where sector (0,1) has been stored and 
continues execution. With a normal 
disk, this code is the third stage of the 
boot, and the RWTS routines read in 
the rest oFDOS and start it running. For 
example, if (0,0,FF) is $48, sectors 
through 9 will be read into memory ($9 
times $8 equals $48). If (0,0,FE) is $36, 
sector (0,0) goes at $3600, (0,1) at 
$3700, (0,2) at $3800, and so on. After 
the requisite number of sectors have 
been read in, execution will continue at 
$3700. 

By changing the bytes at (0,0, FE) 
and (0,0, FF) and placing new code in 
sector (0,1), the boot routines will 
automatically load and execute it. (For 
those of you who have tried to figure 
out the page 3 boot code, the value of 
(0,0,FE) ends up at $3CC and the value 
of (0,0,FF) ends up at $3FF.) 

The Data Disk Routine 

The routine on the data disk should 
notify the user that there is no DOS 
present, and then gracefully return to 
the user. Most expunge routines don't 
do this and somehow cause the routine 
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to abort, or require the user to press 
reset to gain control. of his machine. If 
the machine has the Autostart ROM, 
even resetting may not work because 
the first part of the boot will have 
crashed the page 3 PWREDUP vector 
bytes, thus causing the ROM to think 
that it is the first time through the pro- 
cedure. It then begins the boot process 
all over again by looking for a disk and 
starting up the boot. 

This is clearly inelegant and totally 
unacceptable in a turnkey system. The 
system should trap all foreseeable user 
- errors and handle them, without re- 
quiring the user to be a computer 
operator. The user should be able to put 
any disk in the system (even if by 
mistake) and not have the roof fall in. 
In other words, as far as the booting 
procedure is concerned, one sequence 
of actions is all the user needs to learn. 

The short routine accompanying 
this article is an example Of the kind of 
routine required. The routine first 
disconnects the I/O hooks in page zero, 
resets to keyboard and video mode, and 
clears the screen. The drive is turned 
off and a message notifying the user 
•that DOS is not present is displayed. 
BASIC is then entered at the cold start 
point. fThis could be changed to warm 
start BASIC if desired.) The user now 
knows what went wrong and can. 
decide how to proceed. 

You will notice that the routine to 
print out the error message is written in 
a way that is relocatable. This was done 
so that the code would run from any 
page in memory; the value of this 
capability is - discussed in the next 
section. 



Putting it Together 

Now that we have an understanding 
of the booting process and a routine to 
use with it, it's time to put them 
together. Since the ROM boot routine 
crashes pages 8 and 9 with its "nibble 
buffers," a good place to put the new 
code is right above them, to keep all the 
damage in one area. To do this, change 
the byte (0,0,FE) to $0A and the byte at 
(0,0,FF) to $08. This changes the boot 
to read in sectors (0,0) and (0,1), to 
place them in memory starting at $A00, 
and to jump to $B00. The error routine 
should be placed on the disk at (0,1) 
and it will end up in memory at $B00 
ready to run. 

If, for some reason, pages $A and $B 
are inappropriate to your system or pro- 
grams, change the value of (0,0,FE) to a 
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EQU 


♦FE93 
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page that is more suitable. [The routine 
was made relocatable for this reason.) 
Pages $8 and $9 cannot be used because 
these buffers are necessary for reading 
in the code. 



The Master Disk 

This procedure is not an unreason- 
able, amount of work to do once or 
twice, but it is not something you 



would want to turn into a habit. So, 
master data disk that can then b 
copied as many times as needed shoul 
be made. Note: some copy program 
may not copy information from, or tc 
the normal locations that DOS oc 
cupies on a disk. If your program is c 
this kind,: you'll have to transfer th 
(0,0) and (0,1) sectors manually to th 
new disk. The modified VTOC shoul 
be copied correctly. 
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The following is the general pro- 
cedural outline: 



Initialize a disk in the normal 
manner. 

Delete the 'HELLO' program. 
Change the VTOC bytes as outlined 
above. 

Change the sector (0,0) bytes as 
outlined above. 

Put the error routine on sector (0,1). 
Test the disk by booting it. 
Make a copy of the disk. 
Boot the copy disk. 



If everything is okay, you now have a 
master data disk (with no files on it) 
from which to generate more. 

Notice that no change is made in 
the VTOC to the bits corresponding to 
track $11 (the directory and the 
VTOC). This track is kept 'unavail- 
able' so the directory and the VTOC 
will still be there for the DOS that 
accesses the disk. 



Extensions 

The experienced machine language 
hacker can extend this technique to 
create disks that automatically load 
and run machine language programs, as 
long as they fit completely on track or 
if they include the RWTS routines and 
controlling code to read in more of the 
disk. If you examine the code on a nor- 
mal disk at sector (0,1), you will see 
the type of code required. 

The designers of operating systems 
can change or replace all or part of ,the 
Apple DOS by changing the contents of 
the sectors normally occupied by DOS, 
and letting the various boot routines 
bring it into memory. This generally re- 
quires using the existing RWTS code on 
track and something similar to the 
third stage boot code that starts with 
sector (0, 1), but it is not necessary. The 
programmer can create a whole new 
system if desired. 

By utilizing the Apple RWTS 
routines that normally reside on track 
0, the disks of different operating 
systems can be physically compatible 
even though the information structures 
may not be. There are already enough 
incompatible DOS's and physical for- 
mats around in the micro world; I hope 
that as more DOS's develop for the 
Apple, their underlying physical struc- 
ture will remain the same. Some alter- 
natives are needed to the Apple DOS for 
various users, but the media shouldn't 
be incompatible at all levels. 



I, for example, am working on an 
implementation of FIG-Forth (the 
Forth Interest Group's definition of a 
minimal standard Forth! for the Apple, 
and plan to use the standard RWTS 
routines and linkages—but not the 
whole DOS — to allow Forth access to 
the disks created under 3.2 and BASIC, 
and vice versa. Different languages and 
operating systems allow alternative 
processing operations on the same in- 
formation, but only if the information 
is physically accessible. 

I hope this article can contribute to 
the development of such systems and 
would like to hear from anyone work- 
ing along these lines. Miroo 



MUSICAL COMPUTER I AND II 
Learn How to Read Music! 

Written by an M.A. educator with over 
20 years of music experience. This 
two-program cassette provides an 
alternative to music education. 

• Treble & Bass Note Reading 

• Telling Time 

• Notes and Rests 

• Sharps and Flats 

• Signs and Symbols 

• Tempo Definitions 

• CHALLENGING Practice Testing 
Opportunities 

$34.95 + $1 for postage and handling 

Check or Money Order Please 

(Ml residents add 4% sales tax) 

SPECIAL one-time introductory sample 
price available to dealers only. Please 
request on your dealer letterhead. 

Check: □ Apple II 32K 

□ TRS-80 Level II 16K 

□ ATARI 800 32K 

Name: 

Address: 

COMPUTER 
APPLICATIONS p -°- *>*** 

■p.^..^ nnA i.i Birmingham 

TOMORROW Ml 48012 




Fast, inherently structured, 
programming system ready fa 
your APPLE II or II + (24K). 

Extensive, professional, 100 page 
bound docurnentation. Cleanly 
interfaced to DOS 3.2 or 3.3. Rles 
are completely compatible with 
DOS or BASIC. 

. Control C break and continue 
fa reasonable debugging. 

• Built-in, convenient editor. 

• FORTH structured assembler. 

. The best blend of FORTH and 
the APPLE'S capabilities. 

• Supports games, music, I/O, 
graphics, disk, tape. 

• Supplied on APPLE diskette. 

• Excellent for applications or 
systems programming. 

• After two years, still $49.95 
Calif, residents add S3.00 
sales tax 

From your dealer or direct from: 
SOFTAPE, Dept. f. 
10432 Burbank Blvd. 
North Hollywood, CA 91601 
or Call: 1-213-985-5763 

FOG 279 $49.95 

Master Charge/visa Accepted. 

Apple is a registered trademark 
of APPUE COMPUTER. NC. 
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NIKROM TECHNICAL PRODUCTS PRESENTS 

A DIAGNOSTIC PACKAGE FOR THE APPLE II 

AND APPLE II + COMPUTER. 

"THE BRAIN SURGEON" 

Apple Computer Co. has provided you with the best equipment available to date. The 
Diagnostic's Package was designed to check every major area of your computer, detect errors, 
and report any malfunctions. The Brain Surgeon will put your system through exhaustive, 
thorough procedures, testing and reporting all findings. 



The Tests Include: 

• MOTHERBOARD ROM TEST 

• APPLESOFT ROM CARD TEST 

• INTEGER ROM CARD TEST 

• MOTHERBOARD RAM TESTS 

• DISK DRIVE SPEED CALIBRATION 

• DISK DRIVE MAINTENANCE 

• DC HAYES MICROMODEM II TEST 

(HARDWARE & EPROM) 

• MONITOR & MODULATOR ROUTINES 

• MONITOR SKEWING TESTS 

• MONITOR TEST PATTERN 

• MONITOR TEXT PAGE TEST 



• MONITOR & TV YOKE ALIGNMENT 

• LO-RES COLOR TESTS 

• HI-RES COLOR TESTS 

• RANDOM HI-RES GENERATOR 

• SPEAKER FUNCTION TESTS 

• SQUARE WAVE MODULATION 

• PADDLE & SPEAKER TEST 

• PADDLE & BUTTON TEST 

• PADDLE STABILITY 

• INTERNAL MAINTENANCE 

• GENERAL MAINTENANCE 

• ON BOARD "HELP" 




The Brain Surgeon allows you to be confident of your system. This is as critical as the 
operating system itself. You must depend on your computer 100% of it's running time. The 
Brain Surgeon will monitor and heip maintain absolute peak performance. 

Supplied on diskette with complete 
documentation and maintenance guide. 

PRICE: $49.95 

REQUIRES: 48K, FP in ROM 

1 Disk Drive, DOS 3.2 or 3.3 

©Nikrom Technical Products 

25 PROSPECT STREET • LEOMINSTER, MA 01453 

Order Toll-Free Anyime 

Master Charge & VISA users call: 1-800-835-2246 
Kansas Residents call: 1-800-362-2421 

APPLE is Registered 
.. Trademark ol Apple Computer Co. 

Dealer Inquires Invited ^^ ^^ micromodem n is Registered ' 

Trademark of D.C. HAYES 




F SERIAL NUMBER IS BELOW 20,000 OR DATED 
BEFORE 2/15/81, THEN RETURN DISKETTE PLUS $7.00 
U.S., $9.00 FOREIGN. 
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Apple Color Filter 



fi 



<i 



This short machine language 
subroutine will allow you to filter 
out any selected color from the 
Apple hi-resolution graphics 
screen. 



Stephen R. Berggren 
2347 Duncan Dr. #4 
Fairborn, Ohio 45324 



One of the most fascinating capabilities 
of the new Apple Graphics Tablet is its 
ability to separate the colors on the 
high resolution graphics screen. It can 
act like a color filter, removing all col- 
ors from the screen except a chosen 
one. This can be extremely useful in 
doing computer art work, drawing 
graphs, and, of course, in game 
graphics. But now you can have a 
similar capability without buying the 
graphics tablet. Just use this Apple col- 
or filter program. 

The color filter is a short machine 
language program which can erase any 
selected color from the high resolution 
screen while leaving the other colors 
unaffected. To use it, simply load it 
into page 3 of memory, starting at 
decimal 768. Then POKE a number 
from 1 to 4 into memory location 769 
and run it with a call 768. The number 
POKEd into 769 determines what color 
is erased: 1 erases green, 2 erases violet, 
3 erases blue and 4 erases orange. The 
program takes only about one fourth of 
a second to filter the entire page one Hi- 
Res screen. 

If you are using only green, violet, 
blue and orange, everything works fine. 
But the Apple also draws in white — in 
fact two kinds of white. This can affect 
the results of the filter operation. The 
Apple makes its two whites by com- 
bining either green and violet 
(HCOLOR = 3J or blue and orange 
(HCOLOR = 7). The color filter "sees" 
the white as a combination of the two 
colors rather than as a separate color. 







************************ 








* APPLE COLOR FILTER * 

* * 








* EY STEPHEN BERGGREN * 

4 * 








************************ 








PLTI NUMEER FOR COLOR TO BE REMOVED IN S301 






1 = GREEN, 2 = VIOLET, 3 = 


BLUE, AND 4 =° ORANGE 






WRITE 13 NOT AFFECTED EY 3 


OR 4 






WHITE 17 NOT AFFECTED BY 1 


OR 2 






TO RUM, 300G FROM MONITOR OR CALL 76E FROM BASIC 






3CRLCC 


EPZ $06 ,- 


ZERO-PACE LOC. FOR ADDRESSING SCREEN 






-OECRU 


EPZ S20 


HI -BYTE OF ADDRESS OF SCREN START 






■1ISCRN 


EPZ $40 


HI-BYTE OF SCREEN END 


0300 






ORG $300 




0300 










0300 A20G 




LDX JSG0 


PUT COLOR VALUE IN X FCR TABLE INDEXING 


0302 AG0O 




LDY 1S00 


PUT IN Y FOR INDIRECT SCREEN INDEXING 


0304 A900 




LEA 1$00 


SET SCFREN START ADDRESS IN SCRLOC 


0306 


8506 




STA SCRLOC 




0308 A920 




LDA ILOSCRN 




030A 


8507 




ETA SCRLOC+1 




030C 










030C 


B106 


!WBYT 


LDA (SCRLOC) ,Y 


GET SCREEN BYTE 


030E 


3008 




EM ECTAB2 


IF BIT 7 SET, USE TAELE 2 


0310 


3D4503 




AND TAELE1.X 


MASSK OFF COLOR BITS USING TAELE 1 


0313 


9106 




STA (SCRLOC) ,Y 


PUT BACK THE BYTE 


0315 


4C1D03 




JMP ODDEYT 


DC THE NEXT EYTE 


0318 










0318 


3D4703 


X7TAB2 AND TABLE2.X 


MASK OF! COLOR EITS USING TABLE 2 


031B 


9106 




STA (SCRLOC) ,Y 


PUT BACK THE EYTE 


031E 




; 






031D 


E606 


ODDB'fT 


INC SCRLOC 


SET UP FOR NEXT SCREEN BYTE 


031E 


B106 




LDA (SCRLOC) ,Y 


GET SCREEN BYTE 


0321 


300E 




BMI DCTAE4 


IF BIT 7 SET, USE TABLE 4 


0323 


3D4903 




AND TABLE?, X 


MASK OFF COLOR EITS USING TAELE 2 


0326 


9106 




STA (SCRLOC) ,Y 


PUT BACK THE BYTE 


0328 


4C3003 




JMP INCLOC 


CO INCREMENT SCRLOC 


032E 




J 






032E 


3D4B03 


DCTAI!4 


AND TAILE4,X 


MASK OFF COLOR EITS USINC TABLE 4 


032E 


9106 




STA (SCRLOC) ,Y 


PUT EACK THE EYTE 


0330 










0330 A900 


INCLOC 


LEA J$G0 


INCREMENT SCRLOC LO 


0332 


38 




SEC 




0333 


6506 




ADC SCRLOC 




0335 8506 




STA SCRLOC 




0337 


90D3 




BCC EVNEYT 


IF NOT CVERILOW, DO ANOTHER 2 EYTES 


0339 A900 




LDA JS00 


•INCREMENT SCRLCC HI 


033B 


3e 




SEC 




033C 


6507 




ADC SCRLOC+1 




033E 


8507 




STA SCRLCC+1 




034G C940 




OF tHISCRN 


,WAS THAT THE LAST PAGE? 


0342 DOCS 




BNE EVNEYI 


■IF NOT, DC NEXT 2 BYTES 


0344 


60 




RTS 


•ALL DONE! 


0345 




; 






0345 


00D5 


TAELE1 


HEX 00D5 




0347 AAH 


TAELE 2 HEX AAFE 




0349 


FFAA 


TABLE 3 


HEX FIAA 




034B 


D5FFFJ 


TABLE4 


HEX E5FFFFD5AA 




034E 


D5AA 
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Thus when told to erase green, it will 
erase all green, including the green part 
of any white that is made up of green 
and violet. This turns the white into 
violet. Of course, any white made up of 
blue and orange is left alone. So to erase 
white, simply erase the two colors that 
make it up. To avoid changing the 
white to another color, simply draw it 
in the colors that you do not plan to 
filter out later. 

How the color filter works delves 
deeply into the mysteries of Apple col- 
or graphics. From what I have been able 
to deduce, it seems that each byte in 
the Hi-Res memory holds seven screen 
dots. Each set bit in the lower seven 
bits will turn on one dot. The highest 
bit determines whether the dots will be 
green and violet, or blue and orange. 
On even bytes, bits 0, 2, 4 and 6 create 
violet or blue while bits 1, 3 and 5 
create green or orange. On odd bytes, 
this sequence is reversed. This is a very 
strange system but it seems to work. 
What the color filter does is mask out 
all of the bits in the Hi-Res memory 
area that would create a particular col- 
or. By changing all of these color bits to 
0, it eliminates the color. The com- 
ments in the source program listing 
give more detail on how the program 
operates. 



Two bytes of zero page memory are 
needed for the indirect addressing. The 
program uses bytes 6 and 7, but any 
two consecutive bytes can be used. As 
written, the program works only on Hi- 
Res page one, but by changing the 
values of LOSCRN to 40 and HISCRN 
to 60, you can make it work on Hi-Res 
page two. Finally, if you don't have an 
assembler, you can simply load the 
hexadecimal values listed in the table 
using the Apple monitor's data entry 
function. 



I would like to offer one last note oi 
the Apple color graphics. The colors 
have referred to here are the ones I ge 
from my Apple on my television. Th 
colors you get may be different. Th 
best approach is to experiment with th 
program on your system to see wha 
number inputs erase what colors. Th 
Applesoft BASIC demonstration pro 
gram listed here should give you a goo< 
idea of how the color filter works oi 
your system. 



!i REM COLOR FILTER DEMO 




10 HGR : HOME : VTAB 22 




?.0 FOR I = 1 TO 7 




30 HCOLOR= I 




40 HPLOT 0,1 * 10 TO 250,1 * 10 + 50 




50 NEXT I 




55 FOR J = 1 TO 5000: NEXT J 




60 FOR I = 1 TO 4 




70 FRDJT : PRINT : PRINT "COLOR FILTER INPUT: 


"I 


80 POKE 769,1 




SI0 CALL 768 




100 FOR J = 1 TO 5000: NEXT J 




110 NEXT I 




120 TEXT 




130 END 






JUCRO 



GET FREE SOFTWARE FOR YOUR APPLE!!! 



HOW? Just order any of the items below, and for every $100 worth of merchandise order an item 
from the Bonus Software Section at NO COSTI CO.D. & Personal Checks accepted for all orders. 



HARDWARE BY APPLE 

APPLE II PLUS, 48k 1199 

DISK DRIVE+CONTROLLER (a3l 535 

DISK DRIVE only 445 

Language System w. Pascal 397 

Silentype Printer & Interface 549 

Integer or Applesoft Firmware Card 159 

Graphics Tablet 645 

Parallel Printer Interface Card 149 

Hi-Speed Serial Card 1 55 

HARDWARE by Others 

HAYES MICROMODEM II 300 

VIDEX VIDEOTERM 80 W.GRAPHICS 320 

MICROSOFT 280 SOFTCARD 269 

MICROSOFT 16k RAMCARD 159 

CORVUS 10M8 HARD DISK CALL 

SSMAIO SERIAL/PARALLEL A&T 189 

MICRO-SCI Disk & Controller 495 



WDEO MONITORS 

Leedex-Vkleo-100 12" B&W w/Cable 

Leedex 12" Green w/Cable 

Leedex 13" COLOR MONITOR & cable 



SOFTWARE by APPLE 

APPLE FORTRAN 
APPLE PILOT 

HARDWARE 

by Mountain Computer 

Clock/Calendar Card 
A/D & D/A Interface 
Expansion Chassis 
ROMplus Card 
Mark Sense Card Reader 



SOFTWARE by Others 



139 


PEACHTREE BUSINESS SOFTWARE 


CALL 


165 


VISICALC 


120 


399 


EZ WRITER PROF. SYSTEM 


229 




APPLE FORTRAN by MICROSOFT 


159 




APPLE BASIC COMPILER by MICROSOFT 


315 




APPLE COBOL by MICROSOFT 


599 




MUSE SUPER-TEXT II 


139 


159 


PROGRAMMA APPLE PIE 


119 


125 


PRINTERS 




ter 


EPSON MX-80 


515 


73B 


EPSON MX-70W. GRAPHICS 


415 


319 


CENTRONICS 737 


737 


555 


NEC SPINWRITER 5510 RO 


2795 


135 


VISTA V300 DAISY WHEEL 25CPS 


1750 




VISTA V3O0 DAISY WHEEL 45CPS 


2025 



BONUS SOFTWARE HERE! 



L*t ut acquaint you with MESSAGE-MAKING SOFTWARE. 
Just place th* diik in the APPLE, enter tha text, and colorful, 
dynamic manages appear on tha screens of TV sets connected to 
the computer. Use the software to broadcast messages on TV 
screens in schools, hospitals, factories, store windows, exhibit 
booths, etc Tha following program it our latest release: 
SUPER MESSAGE: Creates messages In full-page "chunks". 
Each message allows statements of mixed ty petty let, typesizos 
and colors, in mixed upper and lower case. Styles range from 
regular APPLE characters, up to double-size, double-width char- 
acters with e heevy, bold font Six colors may be usad for each 
different typestyle. Vertical and horizontal centering are evalls- 
ble, and word-wrap Is automatic. Users can chain pages togetrMir 
to make multi-page messages. Pages can be advanced manually 
or automatically. Multi-page messages can be stored to disc or 
recalled instantly. 
REQUIRES 48K & ROM APPLESOFT $ 811 



APPLE PLOTS YOUR DATA & KEEPS YOUR RECORDS TOO 
APPLE DATA GRAPH 2.1: Plots up to 3 superimposed curves 
on the Hl-res Screen both the X & Y axaa dimensioned. Each 
curve consists of up to 120 pieces of data. Graphs can be stored 
to disc and recalled Immediately for updating. Up to 100 graphs 
can be stored on the seme disc. Great for Stock-market Charting, 
Business Management, and Classroom Instruction! 

REQUIRES 48 K A ROM APPLESOFT * 4a 

APPLE RECORD MANAGER: Allows complete files to be 
brought Into memory so that record searches end manipulations 
are instantaneous. Records within any file can contain up to 
20 fields, with user-defined headings. Information can be string 
or numeric. Users can browse thru files using page-f orward, pege- 
bsekwerd or random-search commands. Records can easily be 
searched, altered or sorted at will Files con be stored on the 
tamo drive as the master program, or on another, If a second drive 
Is available. Records or files can be printed. If desired. 
Additional modules coming are a STATISTICS INTERFACE, 
CHECKBOOK, MAILING LIST ft DATA-ENTRY. 

REQUIRES 48K « ROM APPLESOFT * 36. 

• All Software above on Disk for APPLE DOS 3.2, convertible 

to aa 
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SENSIBLE SOFTWARE, INC. is pleased to introduce... 
OUR 1981 COLLECTION OF SUPERIOR SOFTWARE FOR THE APPLE COMPUTER... 

APPLESOFT-PLUS STRUCTURED BASIC [APLUS] 8SB.OO 

32K+ , Disk II, ROM/RAM Applesoft. Apple ll/Apple II + 

APLUS is a 4K machine language utility that adds the following structured programming commands to Applesoft basic: 1) WHEN.. ELSE.. FIN, 2) UNTIL, 3) 
WHILE, 4)- UNLESS, 5) CASE, 6) SELECT (variable), and 7) (OTHERWISE). Multi-line IF.. THEN statements are also supported. APLUS allows the use of 
"named" subroutines or "procedures". The programmer can now instruct a program to "DO CURVE-FIT' "without worrying about the location of the 
subroutine. APLUS automatically indents "&LIST"ed programs to clarify the logic flow. The APLUS "&C0NVERT" command replaces the above structured 
programming commands with "G0T0"'s and "GOSUB'"s to provide a standard Applesoft program as output. New programs can now be written using 
"G0TO"-less logic. 

APPLESOFT PROGRAM OPTIMIZER [AOPT] SSO.OO 

32 + , Disk II, ROM/RAM APPLESOFT, Apple ll/Apple II + 

AOPT is a 2.2K machine language utility that will substantially reduce the size of an Applesoft program without affecting the operation of the program. AOPT 
automatically: 1) Shortens variable names, 2) Removes remarks, 3) Removes unreferenced lines, 4) Appends short lines together, 5) Removes extra colons, 
and 6) Renumbers line numbers. AOPT will convert a verbose, well documented, development version of a program into a memory-efficient, more secure, pro- 
duction version of the same program. This is the ORIGINAL and the BEST optimizer on the software market today! 

DOS PLUS S25.0G 

32 + , Disk II, DOS 3!3, Apple ll/Apple II + 

DOS PLUS is the software solution for living with both 13-sector (DOS 3.1, 3.2, and 3.2.1) and 16 sector (DOS 3.3) Apple diskettes, DOS PLUS adds 8 new 
commands to Apple DOS, Three of these are built-in and five are user definable. The built in commands include: 1) ",F" to "flip" between DOS 3.2 and 3.3 
(The user need not re-boot and any program that resides in memory will not be affected by the flip. The. DOS version can even be changed within a program!), 2) 
".S" status command informs you what DOS version is currently active, and 3) ".B" BLOAD- analysis is also provided to inform the user of the starting ad- 
dress and length of the last accessed binary file. DOS PLUS also includes a DOS COMMAND CHANGER program to allow easy customization of Apple DOS com- 
mands to suit individual tastes. 

DISK ORGANIZER II — NEW — S30.00 

48K, Disk II, Apple ll/Apple II + 

DO II is the fastest and friendliest utility available today for organizing files on an Apple II diskette. DO II provides the following functions: 1) TITLING in Nor- 
mal, Inverse, Flashing, Lowercase, and other characters normally not available, 2) CUSTOM REORDERING of the directory, 3) ALPHABETIZING, 4) DYNAMIC 
DISPLAY of ALL filenames on a diskette (including deleted files), 5) RENAMING files with the same character options as TITLING, 6) UNDELETING, 7) 
DELETING. 8) PURGING deleted files, 9) LOCKING (all or some), 10) UNLOCKING (all or some), 1 1) USE of DOS sectors for increased data storage, and 12) a 
SIMULATED CATALOG to show the modified directory before it is written to the diskette. DO II is completely MENU DRIVEN and attains it's speed by altering a 
RAM version of the catalog. DO II uses a very powerful SMART KEY to automatically locate the next valid filename for any specified disk operation. Compatible 
with DOS 3.1, 3.2, 3.2.1, and 3.3 as well as MUSE DOS to allow manipulation of SUPER TEXT files! (Note: Updates available for $5.00 and original diskette.) 

PASCAL LOWER CASE — NEW — $55.00 

48K + , Disk II, Apple ll/Apple II + , Language System 

This is the most recent commercially available LOWER CASE MOD for Pascal tor the Apple II. It is the only currently available modification that is compatible 

with both versions of Pascal (1.0 and 1.1). The Pascal version is automatically checked prior to updating system Apple. If you have any of the hardware lower 

case adapters you can now input the following characters directly from the keyboard: | '• x C > _ and \ . This modification-does NOT interfere 

with any of the 'Control' character functions implemented by the Pascal environment and will 'undo' any alterations made by other commercially released 

modifications. 

QUICKLOADER SES.OO 

48K + , Disk II, Apple ll/Apple II + . . . (2 Disks) 

If you find yourself doing the same things over and over - QL will help you do it faster' QL is a unique disk that lets you load DOS, a language card (optionally), 
and an application program of your choice extremely rapidly. QL boots as a 13 or 16 sector diskette and is easy to set up and use. To change the setup, you 
merely load your Apple RAM with the new data and use the "RECONFIGURE" option of QL. The next time you boot your QL disk, it will quickly load your new 
setup (Language Card, DOS, Application program) into your Apple! QL can reduce the time to perform these functions by up to 80%! Now that you've read 
this, you say "But I can already do all of that!" QL doesn't do anything new - it just does it MORE CONVENIENTLY and FASTER! Try it, you'll like it! 

DISK RECOVERY ["THE SCANNER"] S30.00 

48K+, Disk II, Apple ll/Apple II + 

This program is long overdue. You need no longer be-concerned with the problem of physically damaged disks. Just as "Apple Pascal" provides a "BAD 
BLOCK SCAN", DISK RECOVERY will do a complete scan of your Apple diskettes' recording surface. Damaged areas will be "marked" as used in the disk 
directory so that no attempts will be made !a "WRITE" to a bad sector. The VTOC will be completely redone to reflect both the bad sectors and actual disk 
usage. A complete report is generated advising the user of all corrections. A resulting "DISK MAP" is presented for your review. The greatest advantage of 
this program over the other versions is that it can be used on either NEWLY INITIALIZED DISKS or disks that ALREADY CONTAIN PROGRAMS as well as the 
SPEED of analysis. THE SCANNER is fully compatible with both 13 and 16 sector diskettes. This is a must for all Disk II owners! 

ALSO AVAILABLE: SENSIBLE SOFTWARE, INC. 

SUPER DISK COPY III S30.C10 6619 PERHAM DRIVE / W. BLOOMFIELD, MICHIGAN 48033 

MULTI-DISK CATALOG III SBB.OO 313 399 8877 

THE NEW PROTECTOR SB5COO 

(Call or Writs for Information) VISA and MASTERCARD WELCOME 

LUNAR LANDER II ■ •>. S1B.CJO Michigan Residents add A% Sales Tax 

_ "" .,_„ Please add $1.00 postage 4 handling lor each item ordered. 
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msc// express m 

^£K> _if5?s> ;~&^ 
by BILL BLUE 

Described in INFOWORLD as "The 
finest program for Apple data 
communications " ASCII EX- 
PRESS II allows your Apple to com- 
municate with virtually any com- 
puter with dial-up access. 

Written in Applesoft and Machine 
language, Ascii Express II includes 
everything you'd expect in a 
complete communications pack- 
age. It features a variety of power- 
ful features including full support 
of upper/lower case, autodial and 
answer capabilities (when used 
with the Hayes Micromodem), 
and file oriented upload/down- 
load facilities. 

A built-in line editor gives full 
editing functions, and program- 
mable keyboard MACROS reduce 
complicated log-in procedures to 
a few simple keystrokes. 

Downloaded files may be printed 
while being received, saved to 
disk, or printed later when offline. 
The copy mode allows everything 
shown on the screen to be saved 
in the large (20K) buffer. 

Ascii Express II works with the Hayes 
Micromodem II, Apple communi- 
cations card, the CCS Asynchro- 
nous Serial card, SSM-AIO Board, 
Lynx Telephone Linkage System, 
and many other communications 
devices. 

Uses include: 

• Send/receive letters/files from 
networks like the SOURCE, 
MICRONET, or other bulletin 
board type systems. 

• Transferring program files be- 
tween Apples, an Apple and a 
TRS-80. PET, etc. 

• Use the Apple as a terminal to a 
mainframe at a remote loca- 
tion with the added advantage 
of being able to process data at 
the Apple before or after 
transfer. 

• Minimize on-line costs by 
quickly transferring files and 
other data. 

System requirements include a 
48K Apple with Applesoft in ROM 
or the Language Card, a disk 
drive, and one of the above com- 
munications devices. A lower case 
display board is recommended, 
but not required. 

Price: 364.95 



COMMUNICATIONS 

GAP??? 

WE'VE GOT YOU 

COVERED!! 



S.D.S. offers a complete selection of 
communications software to meet 
almost every user's need. Wethinkyou'll 
find the three programs described here 
the best available anywhere — and we 
back that claim with our unconditional 
guarantee of satisfaction or your 
money back. 

To find out more about these programs, 
send for more information, or see your 
local Apple dealer. 



nnunE 

by BILL BLUE 

ONLINE is a completely secure dial-up system 
that allows you to call your Apple computer 
while you're away from home. It also provides 
for up to 50 optional user accounts. 
ONLINE includes a versatile mail system and 
built-in line editor with provisions for up- 
loading and downloading programs and 
files. 

Its many applications include use by busi- 
nesses for J 24 hour answering of field repre- 
sentatives inquiries, taking orders or adver- 
tising for your company. It can also be used 
by clubs or groups for posting announce- 
ments, or transferring files. 
Requires 48K Apple with Hayes Micromodem 
and DOS 3.3. 
Price: $89.95 

(Calif, res. add 6% ON ALL PRICES) 



soutnuiestenn data systems 

P.O. BOX 582-M • SANTEE, CA 92071 
(714)562-3670 



^rTBRM 



V 



by BILL BLUE 



The Rolls-Royce of communica- 
tions software. You may find 
cheaper programs but you'll 
never find one better. Not only 
does it provide everything Ascii 
Express II does, but then some. 
Designed for the CP/M environ- 
ment using the Z-80 Softcard. Z- 
TERM permitsanumberoffeatures 
not available elsewhere. 

• Receives up to 41 K of data at a 
time. Can send files of any size. 

• Auto save mode sends XOFF 
character when buffer is full, 
and resumes (with operator 
prompting) after save. 

• Terminal emulation allows you 
to define the type of terminal 
your Apple (equipped with 80 
column board) will display as. 

• Entirely in machine language 
for maximum speed and 
power. 

• Complete programmable key- 
board macros. 

• Can produce entire ASCII 
character set including break. 

Z-TERM fully supports the Hayes 
Micromodem, Apple Communi- 
cations card, SSM-AIO board, CCS 
Asynchronous Serial Card, Lynx 
Communications system and 
others! Fully supports the local 
Apple 40 column screen, external 
terminals, and all 80 column 
boards interchangeably and with 
NO configuration necessary! 

If you have a Z-80 card, you owe it 
to yourself to check this one out 
before you buy any communica- 
tions software. If you don't have 
the Z-80 Softcard, you may want 
to get one just to run this package! 

•Note: CP/M and Apple DOS files 
are not directly compatable. 



Price: S99.95 



56 



MICRO - The 6502/6809 Journal 



No. 37- June 1981 



W^^^&^MW^^X-^W^^M-M^^^^^MS^^i 



■&nss^^ssr^!ssm 



APPLE BONUS 



FINANCIAL MANAGEMENT SYSTEM 

A FAST, EASY TO USE ACCOUNTING SYSTEM OESINEO FOR HOME AND BUSINESS 

Enter an entire month's CHECKING, CHARGE CARD, and CASH accounts in just 
a few minutes using personalized macro lists. INSTANT ERROR CORRECTION. 
Audit all files by Code and Month with year-to-date totals. 

* PERFECT FOR TAX ACCOUNTING 

* SELF PROMPTING, ERROR AVOIDING ENTRY SYSTEM with 1 to 3 KEYSTROKE 
ENTRIES and AUTOMATIC DATE, COOING and NUMBER SEQUENCING. 

' Printer routines for listing disk files, balance reconcile, search, and audit 
reports. Configure program to match almost ANY PRINTER. 

* Enter your own ITEM and CODE MACROS, up to 100 each. 

* Make specific and expanded searches employing complete use of macro lists 
' 48K with ROM APPLESOFT and DISK required, (printer optional) 

' PRICE: t2fUS 

FINANCIAL MANAGEMENT SYSTEM II 

ALL THE ABOVE FEATURES PLUS ♦ 

' NEW BUDGET MANAGER - Plan, balance, and review your budget. Then 

generate COMPLETE reports with summation for any 1 - 12 month period. 

* SINGLE or DUAL DISK compatible. Configure program to either disk sytem. 
'PRICE: SMJ» 

GROCERY LIST 

A USEFUL HOUSEHOLD PROtRAM OESWNED TO 0R8AWZE SUPERMARKET SHOPPING 

Shoppers will INSTANTLY be able to use this easy, self-prompting program. 
Scan a file of up to 500 USER DEFINED ITEMS. Choose those needed with a 
single key-stroke. Then print a shopping list ORGANIZED BY TABLE NUMBER, 
SECTION, or four letter code such as ■DARY", "BAKE", or "DELI". 
" 48K APPLE with disk and printer required. (APPLESOFT) 

* PRICE: 119-06 

R JARVIS COMPUTING 

1039 CADIZ DR. - SIMI, CA 93065 

PHONE (80S) 526-0151 

Check, VISA or MASTER CARD accepted. DEALER INQUIRIES INVITED 




A STATISTICAL ANALYSIS 

AND FILE MAINTENANCE SYSTEM 

FOR THE APPLE II™ MICROCOMPUTER 

As a Subset Language of P-STAT™ 78... 
A-STAT™ 79 computes: 

FREQUENCIES 

BI-VARIATE TABLES - CHI SQUARES 

CORRELATION MATRICES 

MULTIPLE REGRESSION 

RESIDUALS 

APPLE PLOT INTERFACE 

APPLE FILE CABINET INTERFACE 

FILE SORT 

AGGREGATION 

REPORT WRITING 

COMPLETE TRANSFORMATION LANGUAGE 

READS VISICALC FILES 

A-STAT™ 79 

Uses Standard DOS Text File and EXEC's 
48K Version — All programs in Applesoft" 71 

A-STAT™ 79 is available from: 

ROSEN GRANDON ASSOCIATES 

296 PETER GREEN ROAD 

TOLLAND, CONNECTICUT 06084 

(203) 875-3541 

A-STAT™ 79 on Disk with 95-page manual... $125.00 

Apple II tm is a trademark of the Apple Computer Inc 
P-STAT tm 78 is a trademark of P-STAT Inc., Princeton, N.J. 
A-STAT tm 79 is copyrighted by Gary M. Grandon, Ph.D 





DUAL DOS 

IN 

'"'•<? FOR APPLE]!* ','•"' 

SWITCH FROM ONE DOS (3.2 or 3.3) TO THE OTHER 

WITHOUT BOOTING 

DUAL DOS ROMS - No gadgets or unsightly switches hanging from your disk controller, no software lo run, no memory space used to store the other DOS, does not need the use of the 
3.2 Proms (for those of you who purchased a disk drive with 3.3 DOS). Utilizes the standard 3.2.1 and 3.3 DOS, no special software (Muffin/Demuffin) to move your programs to and 
from 1 3 and 16 sector disks, no system pointers are changed, and is unaffected by any DOS commaniis. This invaluable utility is contained in two ROMs, which when plugged into MC's 
Romplus* or the Andromeda ROMBoard*, will be permanently imbedded in your Apple's memory and waiting lor instant access. The length of time it takes the Apple to perform a 
carriage return is about how fast it takes to switch from one DOS to the other. Both ROMs have their own intelligence which allows one ROM to find the other, in order for them to toggle 
between either DOS. Either ROM can be initialized first. II the 3.2 ROM is initialized first the Applesoft Ampersand command can be used to toggle or flip from one DOS to the other. On 
the otherhand, if you wish to preserve the existing Ampersand command vectors, the 3.3 ROM can be initialized first. The toggle or flip between DOS can then be accomplished by a 
simple CALL command Irom either Basic or Direct from the Monitor. Any program that is in memory will nol be affected by the flip between DOS. The flexibility ol toggling either DOS 
lends itself very easily to be done directly from within your own programs. Diskettes can be initialized from either DOS and 1 3 sector disks will have the faster IN IT routine as part of its 
DOS. DUAL DOS ROMS are not recommended for use with disk drives that are configured with 3.2' Proms. Will operate with FP, INT, or LC and requires 48K, DOS 3.3, and MCs 
Romplusor Andromeda's ROMBoard. (twoROMSet) S49.95 

OTHER ROMS AVAILABLE: All ROMS are compatible with MC's Romplus or Andromeda's ROM Board.) 

■ FP RENUMBER/MERGE ROM -Apple Computer's infamous renumber program S3S.95 

• BASICS ROM -Will boot standard, special, and dedicated 13 sector disks S35.95 

- FPEDTTROM -Global search, change, and remove. (Works jointly with PLE) £535.95 

• COMMAND ROM -Catalog Command Menu and Disk Map EE13B.35 

- DISK COPY/ SPACE ROM -Duplicates 13 or 16 Sector Disks S3B.95 

- 'YOUR' PLE ROM ■ Your Customized Program Line Editor in Firmware S«*5.95 

ORDER 3 OR MORE (Dual DOS counts as one) AND DEDUCT 10% OF YOUR TOTAL ORDER. (Check et M.O.) Vtii « MasterCard Accepted 

Soft CTRL Systems, box 599, westmilford, nj o?48o aSSSs^s^ssud 
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® UersaWriter & APPLE II: 

The Keys to Unlimited Graphics 



DRAWING TABLET 

Although VersaWriter operates on a 
simple principle, it produces graphics 
which match or exceed those of other 
digitizers. Rugged construction, trans- 
lucent base, easy to use — plugs 
directly into APPLE II. 





GRAPHICS SOFTWARE 

Easily the most capable and com- 
plete graphics software for the home 
computer available. Fast fill drawings 
in 100 colors. Ail text in five sizes, 
compile and display shapes, edit, 
move and much more! 



UNIQUE OFFER 

See VersaWriter at your local dealer and 
pick up a copy of our demonstration 
disk. The complete VersaWriter hardware 
and software package is a real bargain 
at $249. For more information call or 
write: 




Versa Computing, Inc. • 887 Conestoga Circle • Newbury Park, CA 91320 • (805) 498-1956 



^ 



FOR 

APPLE 
COMPUTERS 



DOUBLE DOS Pins 



WHY IS DOUBLE DOS PLUS BETTER 








OTHER UNIQUE PRODUCTS FROM MICRO-WARE DISTRIBUTING INC. 

CftRD - Two sided 1005 plastic reference card for the 
TetT Loaded with information of interest to all Apple 



ttK: tffti ii * rifiiurrt triMMTt •+ WfU t*Mtn HC., 0*01110, Call**' 
"DOUBLE DOS PLUS REQUIRES APPLE DOS POMS 



MICRO- WARE 



DISTRIBUTING INC. 
P. O. Bo* tO 

Pomoton Plum, n.j. 0744^ 

201-839-3478 

DEALER INQUIRES INVlrai ! 



1) Nothing needs to be soldered, just 
plug and go. 

2) Since all four ROMS are used, all 
software will work even early 3.1 DOS. 

3) Because the ROMS fit on the back of 
the board , it has the thinnest 
configuration allowing full use of slot' 



4) One set of ROUS is powered up at 
time thereby saving power. 



5) Full 90 day warranty 

rtwi 




\\\\\\\\\\\\\\\\\V 



DOUBLE DOS PLUS - A piggyback board that plugs into the disk controller card so 
that you, can switch select between DOS 3,2 anj DOS 3.3- Works with the language 
system- eliminating the need in many cases to boot the Basics disk. Also 
eliminates the chore of converting all of your 3.2 disks to 3.3. 



type 
This 
that 



PARALLEL PRINTER CARP - PPC-100 - A Universal Centronics 
parallel printer board complete with cable and connector, 
unique board allows you -to turn on and off the high bit so 
you can access additional features in many printers. Use with 
EP5QN, ANADEX, STARWRITER, NEC, SANDERS, OKI, and other with 
standard Centronics configuration .,$159.00 

THE POUBl E BODTER ROM - Plugs into the empty D8 Socket an the 
Apple motherboard or the Integer ROM Card to provide a 13 sector 
boot without using the Basics Disk. DoubleBooter may also be 
used in the MOUNTAIN HARDWARE ROM PLUS board. This chip will not 
work in a plus machine unless it contains an Integer board or a 
«0M Plus board $29.00 

DISK ST1X - Contains 10 dozen diskette lables with either 3.3 or 
5,2 designation. Room for program names- and type also $3.98 

<»■»». »«.»»< SOFTWARE •*»■»»»»»*»* > 

SUPER SEA WAR - 

l) L i f|.MA i 7 i E XFJEJ* - A telephone software transfer prograc 

Hayes Assoc, micromodem ...$25.00 
ROAD RftLLYE - Hires driving game 1 

tracks ...il5.n0 
M ISSILE CHALLENGER - Hires arcade type game where you defend your 

cities from a Tailing missiles. 8 levels A writes name 4 high 

score to disk ...$19.95 
SUPER PIX - Hires screen dump for the EPSON HX-8Q, inverse or 

normal, larger than full page graphics in 2 orientations. Needs 

Tynvac PPC-100 Printer board or we will upgrade your EPSON board 

for $25 $39.95 ... 

GRAPH-FIT - A hires graphing program that produces bar charts, pie 

charts and line graphs. Has auto scaling feature toe... $25.00 



rith 5 diffrent 



■ i 
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Serial Line Editor 
for the Apple 



This routine is an extended line 
editor for the Apple, which 
allows Inserting, deleting, and 
several other features. 



Wes Huntress 

650 Chaparral Rd. 

Sierra Madre, California 91024 



GETLN is a machine language routine 
which can be used to replace the stan- 
dard line input routine which resides in 
the monitor ROM in your Apple. It is 
called at one entry point or another by 
both Applesoft and Integer BASICs for 
line input. The advantage of the alter- 
nate routine given here is the editing 
features that it contains. The Apple 
monitor ESC editing features are very 
useful for editing BASIC program lines, 
but are not the best for editing text. 
The editing features in GETLN are il- 
lustrative of serial text line editing and 
could form the basis of any line- 
oriented text processing program. 
GETLN also allows the input of nor- 
mally forbidden characters in Apple- 
soft, such as the comma and colon. All 
of this is gained at a slight disadvantage 
in usage. Applesoft programs must be 
moved up two pages in memory and a 
few extra program steps are required in- 
stead of a simple INPUT statement. 
GETLN should be used only for string 
input and string editing. The version 
given here is for Applesoft. With a few 
changes it can be made to work for 
Integer as well. 

When called, GETLN prompts for 
input and places the characters in the 
keyboard buffer at $200. 2FF. All 
editing is done on the characters placed 
in the keyboard buffer. On return from 
GETLN it is necessary to move the 
characters from the keyboard buffer to 
the memory space that is to be oc- 
cupied by the string. For Applesoft, this 
requires that the location in memory of 
the string variable's address pointer be 
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It * 

r* SEh.IAL LINE EIiITGF; * 


la GO 




Ob GO 




>» FOR APPLESOFT * 


il6 GO 




i* * 


Ocj GO 




r * B V * 


uu GO 




<* * 


08 GO 




»* WES HUNTRESS * 


08 GO 




.* SIERRA MADRE > CA * 


08 GO 




j* >.' 213 )~355-S125 * 


08 GO 




;* * 


08 GO 




i* MM I960 * 


OS GO 




i* * 


OS GO 




r*p!f$Jk^£fc£'f)l('f&^i&A)jl&)|l'fc&'f[& 


08 O0 




; 


osoo 




, equates: constants 


08 GO 




» 


08 GO 




SS EPZ *88 


08 GO 




CR EPZ *8B 


08 O0 




CSM EPZ *9D 


08 Ou 




CTL EPZ : *20 


08 GO 




ESC EPZ *9B 


08 GO 




FIX EPZ *7F 


fitj GO 




INV EPZ *80 


08O0 




NAK EPZ*95 


08 Ou 




BEND EPZ *FE 


oeoo 




ZERO EPZ *O0 


08 06 




BLANK EPZ SAO 


88 00 






06O0 




(equates: pointers 


osoo 






oaoo 




CHAR* EPZ *19 


08 OG 




EOL EPZ «1A 


08 Ou 




STRT ' EPZ *1B 


08 GO 




TEMP EPZ *1C 


18 OO 




SUBSTR EPZ »lli 


08 OO 




3UBEND EPZ *1E 


08 OO 




MODE EPZ *1F 


08 O0 






08 O0 




(EQUATES: MONITOR ADDRESSES 


08 O0 






06 O0 




BUFFEFi EQU *0200 


08 O0 




K'EYIN EQU tFBOC 


OBOO 




PRINT EQU »FBED 


08 GO 




BACKSP EQU *FC1G 


0800 




ADVANC EQU $FBF+ 


18 O0 




RETURN EQU *FCA2 


08 00 




CLREOP EQU $FC42 


08 O0 




BELL EQU $FF3A 


98 O0 




r 


0800 




ORG »O800 


08 GO 




r 


08 OO 




(INITIALIZE KEYBOARD BUFFER 


08 O0 




r 


OSOO 


AOAO 


GETLN LDY 1BLANK (LOAD BLANK CHARACTER 


08 02 


a coo 02 


CLRB STY BUFFER (STORE IT IN KEYBOARD BUFFER 


M305 


EE03O8 


INC *-*2 .FROM $0200 


OS 06 


D0F8 


BNE CLRB (TO *02FF 


08 OS 


A200 


LDX *ZERO (SET POINTERS TO ZERO! 


08 OC 


8419 


STX CHAR* (CHARACTER NUMBER IN THE STRING 


08 OE 


661A 


STX EOL (END OF LINE POINTER 


0810 


8.S1D 


STX SUBSTRT (SUBSTRING START POINTER 


0812 


861E 


STX SUBEND (SUBSTRING END POINTER 


08 14 


861F 


STX MODE (MAINLINE/SUBSTRING MODE FLAG 


•816 






oeii 




(MAINLINE CHARACTER ENTRY ROUTINE 


0816 






0016 


2O0CFS 


GETCHft JSR KEYIN (GET CHAR USING MONITOR ROUTINE 


•ai? 


C988 


GETCH1 CMP *BS (BACKSPACE? 


OB IB 


F05B 


BEQ BKSPCE (YES* GOTO BACKSPACE ROUTINE 


18 ID 


C99B 


CMP *ESC (ESCAPE KEY? 


08 IF 


F031 


BEQ ESCAPE (YES. GOTO ESCAPE VECTOR ROUTINE 


0821 


C995 


CMP *NAK (FORWARD ARROW? 

(continued) 
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known. The method used to accom- 
plish this is the same as given in 
CONTACTS. A dummy variable is 
declared as the first variable in the pro- 
gram, i.e. X$«" ", which assigns the 
two-byte variable name to the first two 
locations in memory at the LOMEM: 
pointer. The third location is assigned 
to the string length, and the fourth and 
fifth locations to the address of the 
string in memory, low byte first. 

The LOMEM: pointer is at $69-70, 
so that the address of the string X$ can 
now be found indirectly from the 
LOMEM: pointer. A separate machine 
language program is provided called GI 
which interfaces the GETLN routine 
with Applesoft programs by placing the 
address of the keyboard buffer, and the 
buffer string length, into the proper 
location for X$ using the LOMEM: 
pointer. 

The string X$ is now assigned to the 
string in the keyboard buffer. In order 
to move it into the upper part of 
memory where Applesoft strings are 
normally stored, and to prevent the 
string from being clobbered the next 
time GETLN is called, the statement 
X$-MID$(X$,1) is used. This state- 
ment performs a memory move from 
the present location of X$ (the 
keyboard buffer) to the next available 
space in high memory, and is the key to 
the success of the interface of GETLN 
with Applesoft programs. 

How to Use It 

To use GETLN with Applesoft pro- 
grams, both GI and GETLN must be 
present in memory. To set up your pro- 
gram and call for input, use the follow- 
ing procedure: 

5 X$ = " ":REM FIRST 
VARIABLE DECLARATION 



1 00 CALL 834:A$ = M I D$(X$, 1 ): 
REM KEYBOARD INPUT 

Line 100 replaces the INPUT A$ 
statement. CALL 834 is to the key- 
board input entry point in the GI inter- 
face routine. Three other entry points 
are provided in the interface routine. 
The call 

1 00 CALL 853:X$ = M I D$(X$, 1 ): 
REM DOS INPUT 

replaces the INPUT A$ statement 
when READing text files from the disk. 
A separate routine from the keyboard 



OB 23 F061 




BEO FORWRB 


(YES> GOTO FORWARD ARROW ROUTINE 


Mi 25 C98D 




CMP *CR 


(RETURN? 


08.27 F063 




BEO LINENB 


(YES, GOTO EXIT ROUTINE 


0829 A619 




LUX CHAR* 


(NONE OF THESE > GET CURRENT CHAR* 


0821 297F 




AND *FIX 


(FIX NEG ASCII INPUT FOR APPLESOFT 


082S 204506 




JSR STRPNT 


(STORE AND PRINT CHAR 


0830 


; 






OB 30 


i POINTER UPDATING 




0830 


i 






0830 G619 


FXPTRS INC CHAR* 


(INC POSITION-IN-STRING POINTER 


0835 H.419 




LDX CHAR* 


(GET IT 


0834 E41E 




CPX SUBEND 


(AT END OF SUBSTRING OR BUFFER? 


0836 F'076 




BEQ WHICH 


(YES, GO FIND OUT WHICH 


0838 A 41 A 




LDY EOL 


(GET END OF LINE POINTER 


0S3A C419 




CPY CHAR* 


(END OF CURRENT LINE? 


08 3C U004 




BCS FXPOUT 


(NO, SKIP EOL POINTER UPDATE 


06 3E E61A 




INC EOL 


(INCREMENT END OF LINE POINTER 


OS 40 F05F 




BEQ EUFULL 


(256 CHARS! GOTO BUFFER FULL 


1642 4C1608 


FXPOUT 


JHP GETCHR 


(DONE. GET ANOTHER CHARACTER 


0645 


i 






0843 


(STORE 


AND PRINT ROUTINE 




0845 


i 






0845 9S0OO2 


STRPN1 


STA BUFFER. X 


(STORE IN CURRENT BUFFER LOC. 


08 4S 1920 




CMP *CTL 


(CONTROL CHARACTER? 


0B4A 9002 




BCC PNT 


(NO, SKIP TO PRINT 


08 4C 09SG 




ORA *INV 


(YES, CONVERT TO INVERSE 


0S4E 20EDFD 


F'NT 


JSR PRINT 


(FRINT TO SCREEN 


0SS1 60 




RTS 




0852 


; 






08 52 
' 0852 
0852 fUlF 


(ESCAPE KEY VECTOR ROUTINE 




ESCAPE 


LDY MODE 


(SUBSTRING MODE? 


0854 IJ048 




BNE SBEXV 


(YES, GOTO SUBSTRING EXIT VECTOR 


06 Si 200CFD 




JSR KEYIN 


(GET ANOTHER CHARACTER 


0859 C995 




CMP *NAK 


(FORWARD ARROW? 


08 SB FOOF 




BEG INSV 


(YES, GOTO INSERT MODE VECTOR 


08 5D C988 




CMP *BS 


(BACKSPACE? 


JS5F FOli 




BEO BELV 


(YES, GOTO DELETE MODE VECTOR 


0861 C9AG 




CMP *BLANK 


(SPACE CHAR? 


0863 F0OA 




BEO ZMMV 


(YES, GOTO CURSOR ZOOM VECTOR 


OS 65 C99D 




CMP *CSH 


JCTRL-SHIFT-M? 


0867 F00C 




BEQ ZAPV 


(YES, GOTO LINE ZAP VECTOR 


08 69 4C7409 




JMP CHRFNB 


(NONE OF THESE, GOTO CHAR FIND 


0B6C 4C05O9 


INSV 


JMP INSERT 


(GOTO INSERT ROUTINE 


•S6F 4C5509 


ZMHV 


JMP ZOOM 


(GOTO CURSOR ZOOM ROUTINE 


0872 4CEB08 


BELV 


JMP DELETE 


(GOTO DELETE ROUTINE 


0875 4C9A09 


.ZAPV 


JMP ZAP 


(GOTO DELETE-TO-EOL ROUTINE 


0878 


( 






0878 


iBACKSPACE ROUTINE 




0878 


i 






0878 A->19 


BKSPCE 


LBY CHAR* 


(GET POSITION IN LINE 


0B7A C+1D 




CPY SUBSTRT 


(AT BEGINNING OF LINE/SUBSTRING? 


0S7C F005 




BEQ BSOUT 


(YES, RETURN 


087E Ctil9 




DEC CHAR* 


(NO, DECREMENT POSITION IN LINE 


OS 80 2010FC 




JSR BACKSP 


(BACKSPACE CURSOR 


0883 4C1608 


BSQUT 


JMP GETCHR 


(RETURN 


0886 


( 






0884 


(FORWARD ARROW ROUTINE 




088<S 


» 






0886 20F4FE 


FORWRB 


JSR ADVANC 


(ADVANCE CURSOR 


0889 4C3008 




JMP FXPTRS 


(RETURN TO INCREMENT CHAR* 


now 








0S8C 

osac 


(EX. I 1 






0SSC H4IF 


L'il-iEUU 


LDY MODE 


(SUBSTRING MODE? 


osac DOGE 




mz sbex'i; 


(YES. GOTO SUBSTRING EXIT 


OS 90 H6H 




LDX CHAR* 


(STORE CHARACTER COUNT 


0892 SolA 




3TX EOL 


(IN EOL POINTER 


0894 9I0OO2 




STA BUFFER. X 


(STORE CR AT END OF STRING 


0897 2042FC 




JSR CLREOP 


(CLEAR SCREEN TO END OF PAGE 


089h 2062FC 




JSR RETURN 


(PERFORM CARRIAGE RETURN 


0G9I< 60 




RTS 


(EXIT TO CALLER 


089E 4C3D05 


SBEXU 


JMP SUBEXT 


(GOTO SUBSTRING EXIT 


OBrti 


( 






08 Hi 


(BUFFER FULL ROUTINE 




08 Al 


; 






08 Hi C61A 


BUFULL 


DEC EOL 


(DECREMENT EOL POINTER 


0SA3 C619 


BUFUL1 


DEC CHAR* 


(DECREMENT CURSOR POSITION 


08A5 2010FC 




JSR BACKSP 


(BACKSPACE 


06A8 20:iAFF 


BELEX 


JSR BELL 


(SOUND BELL 


08 AB 4C1.608 




JMP GETCHR 


(RETURN 


0SAE 


( 






08 AE 


(DETERMINE MAINLINE QR SUBSTRING MODE 


08 AE 


i 






08 AE A41F 


WHICH 


LDY MODE 


(SUBSTRING MODE? 


08BO FOF1 




BEQ BUFUL1 


(NO, GOTO BUFFER END ROUTINE 


08B2 4C1709 




JMP MGVEFD 


(YES, MOVE RIGHT STRING FORWARD 


0BB5 


( 






08 B5 


(MOVE 


STRING BACK ROUTINE 




08 B5 


; 






08B5 A619 


MOVEBK 


LDX CHAR*' 


(GET DESTINATION START 


08B7 A41B 




LDY STRT 


(GET STRING START 


08B9 A51A 




LDA EOL 


(GET STRING END 


08BB 38 




SEC 




08BC E51B 




SBC STRT 


(SUBTRACT STRING START 


08BE 18 




CLC 


i 


08BF 6519 




ADC CHAR* 


(ADD PRESENT CURSOR POSITION j 


0BC1 851C 




STA TEMP 


(STORE NEW EOL POINTER 


0BC3 B9O0O2 


MVBLP 


LDA BUFFER, Y 


(GET STRING CHARACTER 



60 
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08C6 


204508 




■JSR 


STRPNT 


(STORE ANB PRINT CHARACTER 


08C9 


C8 




INY 




(INCRFMFNT THE 


08CA 


E8 




INX 




(POSITION POINTERS 


08CB 


C41A 




CPY 


EOL 


(END OF STRING? 


O8C0 


90F4 




8CC 


MVBLP 


(NO; GET ANOTHER CHARACTER 


oner 


2042FC 




JSR 


CLREOP 


(YES. CLEAR TO END OF PAGE 


08D2 


8ft 




TXA 




(STORE CURSOR POSITION 


08D3 


AS 




TAY 




(IN Y REGISTER 


08D4 


A9A0 




LBA 


♦BLANK 


(GET SPACE CHARACTER 


0SD4 


9150002 


CLRLP 


STA 


BUFFER. X 


(STORE IN BUFFER BEYOND NEU EOL 


08 D9 


ECB 




INX 




(INCREMENT 'POSITION 


08 DA 


E41A 




CPX 


EOL 


(AT OLD END OF LINE? 


08DC 


90F8 




BCC 


CLRLP 


(NO. DO IT AGAIN 


08 BE 


A61C 




LUX 


TEMP 


(YES. GET NEU EOL 


0SE0 


861 A 




STX 


EOL 


(STORE IT 


oat'2 


98 




TYA 




(GET CURSOR POSITION 


08 e.z 


Aft 




TAX 




(BACK INTO X REGISTER 


08E4 












08E4 




(RESTORE CURSOR ROUTINE 




08 E4 












08 E4 


201 OFC 


RESTOR 


JSR 


BACKSP 


(BACKSPACE 


08 E7 


Cft 




BEX 




(DECREMENT CURSOR POSITION 


081:18 


E419 




CPX 


CHAR* 


(AT PRESENT CHARACTER POSITION? 


08 Eft 


13 OF 8 




BNE 


RESTOR 


(NO. DO IT AGAIN 


08EC 


60 




RTS 




(YES. RETURN 


OB ED 












08 ED 




(DELETE ROUTINE 




08ED 












08E."B 


A619 


DELETE 


LDX 


CHAR* 


(GET PRESENT CHARACTER POSITION 


08 EF 


E8 




INX 




( INCREMENT TO NEXT CHARACTER 


08 FO 


861B 




STX 


STRT 


(STORE STRING START POSITION 


08F2 


A41A 


DELELP 


LDY 


EOL 


(GET END OF LINE POINTER 


0OF4 


C419 




CPY 


CHAR* 


(SAME AS NEXT CHARACTER POSITION? 


08F6 


FOOA 




BEG- 


DELOUT 


(YES. NOTHING TO DELETE! 


08F8 


20B508 




JSR 


MOVEBK 


(NO, MOVE STRING BACK ONE SPACE 


08FB 


200CFD 




JSR 


KEYIN 


(GET ANOTHER CHARACTER 


08FE 


C988 




CMP 


*BS 


(ANOTHER BACKSPACE CHARACTER? 


0900 


FOFO 




BELT 


DELELP 


(YES. DELETE ANOTHER CHARACTER 


09O2 


4C190S 


DELOUT 


JMP 


GETCH1 


(NO, BACK TO MAINLINE 


09O5 












09O5 




(INSERT ROUTINE INITIALIZE 




09 05 












09O5 


A61A 


INSERT 


LDX 


EOL 


(GET END OF LINE POINTER 


09O7 


EOFE 




CPX 


♦ BEND 


(END OF ALLOWABLE INSEFiTIONS? 


09O9 


B09D 




BCS 


8ELEX 


(YES. STOP INPUT 


09OB 


A619 




LDX 


CHAR* 


(NO. GET POSITION IN LINE 


09OD 


E41A 




CPX 


EOL 


(AT END OF LINE? 


09OF 


F029 




BEO 


INOUT 


(YES. NO NEED TO INSERT! 


0911 


861IJ 




STX 


SUBSTR 


(NO. STORE SUBSTRING START 


0913 


861 E 




STX 


SUBEND 


(STORE PRESENT SUBSTRING END 


0915 


851 F 




STA 


MODE 


(SET SUBSTRING MODE FLAG 


0917 












0917 




(HOVE 


STRING FORWARD ROUTINE 


0917 












0917 


20F4FB 


MOVEFD 


JSR 


ADVANC 


(ADVANCE CURSOR 


091ft 


BD0002 




LBA 


BUFFERiX 


(GET FIRST STRING CHARACTER 


09 ID 


E61A 




INC 


EOL 


(INCREMENT EOL POINTER 


09 IF 


F02E 




BEQ 


SBOUT 


(BUFFER END! STOP INPUT 


0921 


E8 


MVFLP 


INX 




(POINT TO SECOND CHARACTER 


0922 


BC0OO2 




LDY 


BUFFERfX 


(GET SECOND CHARACTER 


0925 


204508 




JSR 


STRPNT 


(STORE ftND PRINT FIRST CHAR 


0928 


98 




TYA 




(TRANFFR SECOND CHAR TO ACC. 


0929 


E41A 




CPX 


EOL 


(END OF LINE? 


09 2B 


D0F4 




BNE 


MVFLP 


(NO, DO IT AGAIN 


09 2D 


E8 




INX 




(YES 


092E 


20E408 




JSR 


RESTOR 


(RESTORE CURSOR 


0931 


98 




TYA 




(GET SPACE CHAR INTO ACC. 


09 32 


204508 




JSR 


STRPNT 


(STORE S. PRINT AT INSERT POSITION 


0935 


2010FC 




JSR 


BACKSP 


(RETURN CURSOR TO INSERT POSITION 


09 38 


E61E 




INC 


SUBEND 


(INCREMENT SUBSTRING END POINTER 


093ft 


4C1608 


INOUT 


JMP 


GETCHR 


(GET ANOTHER CHAR 


09 3D 












09 3D 




(SUBSTRING 


EXIT ROUTINE 




09 3D 












09 3D 


A61E 


SUBEXT 


LDX 


SUBEND 


(GET SUBSTRING END POSITION 


09 3F 


861B 




STX 


STRT 


(STORE IN STRING START POINTER 


0941 


20B50S 




JSR 


MOVEBK 


(MOVE RIGHT STRING BACK 


0944 


A20O 




LDX 


♦ ZERO 


(RESET THE 


094b 


861D 




STX 


SUBSTR 


(SUBSTRING START, 


0948 


861E 




STX 


SUBEND 


(SUBSTRING END POINTERS 


094ft 


861 F 




STX 


NODE 


(AND MODE FLAG 


094C 


4C1608 




JMP 


GETCHR 


(BACK TO MAINLINE 


094F 


2010FC 


SBOUT 


JSR 


BACKSP 


(BACKSPACE 


0952 


4Cftl08 




JMP 


BUFULL 


(GOTO BUFFER FULL 


0955 












0955 




(CURSOR ZOOM ROUTINE 




0955 












0955 


A51A 


ZOOM 


LDA 


EOL 


(GET EOL POINTER 


0957 


FOOE 




BEQ 


ZMdUT 


(NULL LINE! RETURN 


0959 


Aft 




TAX 




(STORE EOL IN X REGISTER 


095ft 


E519 




SBC 


CHAR* 


(CURSOR AT END OF LINE? 


095C 


FOOC 




BED, 


ZBEG 


(YES. ZOOM TO LINE START 


09 5E 


8619 




STX 


CHAR* 


(STORE CURSOR POSITION < EOL ) 


0960 


Aft 




TAX 




(GET ADVANCE COUNT IN X REGISTER 


0961 


20F4FB 


ZOOMLP 


JSR 


ADVANC 


(ADVANCE CURSOR 


0964 


Cft 




HEX 




(DECREMENT ADVANCE COUNT 


0965 


DOFfi 




BNE 


ZOOMLP 


(ADVANCE AGAIN IF NOT AT EOL 

(continued) 



input routine is required for Applesoft 
programs since the DOS stores and out- 
puts all text files in negative ASCII. 
The call 

100 X$ = A$:CALL800:REM 
PRINT 

can be used in place of the PRINT A$ 
statement to print all control 
characters in inverse video. Otherwise 
use the PRINT A$ statement as usual. 
To recall a string for further editing, 
use 

1 00 X$ = A$:CALL 807;A$ = 
MID$(X$,1):REM EDIT 

The cursor will be placed on tne 
screen at the beginning of the recalled 
string. Dimensioned strings can be 
used as well as simple strings. GETLN 
can also be used alone from assembly 
language using 800G. It will place the 
input string in the keyboard buffer in 
standard ASCII terminated by $8D 
(CR). 

GETLN occupies nearly two pages 
of memory from $800 to $9AF. Since 
Applesoft programs normally reside in 
this space, it is necessary to move your 
program up in memory to make room 
for GETLN. This is readily accom- 
plished by two statements: 

POKE 104,10:POKE 2560,0 

This line must be executed either from 
immediate mode or from an EXEC file 
before loading the Applesoft program. 
The short interface routine occupies 
locations $300 to $355. 

Editing Features 

The following edit commands are 
implemented in GETLN. Except for the 

usual Applet , >■ and 

RETURN editing keys, all commands 
are initiated by hitting the ESC key. 



>■ Move cursor right, copy 

character 

* Move cursor left 

RETURN Terminate line, clear to 
end of page 

ESC >■ Initiate insert mode, ESC 

or RET to exit 

ESC-< Delete character, recursive 

ESC sp bar Move cursor to beginning 
(end) of line 

ESC char Move cursor to first occur- 
rence of char 

ESC ctrl-shift-M Delete remainder of 
line 
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The first three commands operate 
just as in the Apple monitor line editor. 
The monitor ESC functions are replaced 
with the five ESC functions listed 

above. Use ESC >-to insert 

characters at any place in the line. Use 

the usual monitor >-and-< 

keys to position the cursor over the 
character where you wish to insert. 

ESC >-will push right by one 

character the entire string beginning 



*8O0. 


?CF 
















0800- 


A0 


M 


8C 


OO 


02 


EE 


03 


08 


08O8- 


CO 


F8 


A2 


00 


84 


19 


86 


1A 


0810- 


86 


ID 


84 


IE 


84 


IF 


20 


OC 


0818- 


FD 


C9 


88 


FO 


5B 


C9 


9B 


FO 


0820- 


31 


C9 


95 


FO 


61 


C9 


8B 


FO 


0828- 


63 


A6 


19 


29 


7F 


20 


45 


08 


0830- 


E6 


19 


A4 


19 


E4 


IE 


FO 


76 


0838- 


A4 


1A 


C4 


19 


BO 


04 


E6 


1A 


0840- 


FO 


5F 


4C 


16 


08 


9B 


00 


02 


0848- 


C9 


20 


90 


02 


09 


80 


20 


EB 


0850- 


FD 


40 


A4 


IF 


DO 


'48 


20 


OC 


0858- 


FB 


C9 


95 


FO 


OF 


C9 


88 


FO 


0840- 


11 


C9 


A0 


FO 


OA 


C9 


9D 


FO 


0848- 


OC 


4C 


74 


09 


4C 


05 


09 


4C 


0870- 


55 


09 


4C 


EB 


08 


4C 


9A 


09 


0878- 


A4 


19 


C4 


IB 


FO 


05 


C6 


19 


0880- 


20 


10 


FC 


4C 


16 


08 


20 


F4 


0888- 


FB 


4C 


30 


03 


A4 


IF 


BO 


OE 


0890- 


A6 


19 


86 


1A 


9B 


00 


02 


20 


0898- 


42 


FC 


20 


62 


FC 


60 


4C 


3D 


08A0- 


09 


C6 


1A 


C4 


19 


20 


10 


FC 


08A8- 


20 


3A 


FF 


4C 


14 


08 


A4 


IF 


08B0- 


F0 


Fl 


4C 


17 


09 


A6 


19 


A4 


08B8- 


IB 


A5 


1A 


38 


E5 


IB 


18 


45 


08C0- 


19 


85 


1C 


B9 


00 


02 


20 


45 


08C8- 


08 


C8 


E8 


C4 


1A 


90 


F4 


20 


08B0- 


42 


FC 


8A 


A8 


A9 


AO 


9B 


00 


08B8- 


02 


E8 


E4 


1A 


90 


F8 


A6 


1C 


08E0- 


86 


1A 


93 


AA 


20 


10 


FC 


CA 


08E8- 


E4 


19 


BO 


F8 


60 


A6 


19 


E8 


08F0- 


86 


IB 


A4 


1A 


C4 


19 


FO 


OA 


08F8- 


20 


B5 


08 


20 


OC 


FB 


C9 


88 


0900- 


F0 


FO 


4C 


19 


08 


A6 


1A 


EO 


09 08- 


FE 


B0 


9D 


A4 


19 


E4 


1A 


FO 


0910- 


29 


86 


IB 


86 


IE 


85 


IF 


20 


0918- 


F4 


FB 


BB 


00 


02 


E6 


1A 


FO 


0920- 


2E 


E8 


BC 


00 


02 


20 


45 


08 


0928- 


98 


E4 


1A 


BO 


F4 


E8 


20 


E4 


0930- 


08 


98 


20 


45 


08 


20 


10 


FC 


0938- 


E6 


IE 


4C 


14 


08 


A6 


IE 


86 


0940- 


IB 


20 


B5 


08 


A2 


00 


86 


ID 


0948- 


86 


IE 


86 


IF 


4C 


16 


08 


20 


0950- 


10 


FC 


4C 


Al 


08 


A5 


1A 


FO 


0958- 


0E 


AA 


E5 


19 


FO 


OC 


86 


19 


0940- 


AA 


20 


F4 


FB 


CA 


DO 


FA 


4C 


0948- 


16 


08 


20 


10 


FC 


CA 


BO 


FA 


0970- 


86 


19 


FO 


F3 


29 


7F 


85 


IB 


0978- 


A6 


19 


E8 


20 


F4 


FB 


E4 


19 


0980- 


F0 


OB 


E4 


1A 


BO 


OC 


BD 


00 


0988- 


02 


C5 


IB 


BO 


EB 


86 


19 


4C 


0990- 


16 


08 


20 


10 


FC 


CA 


BO 


FA 


0998- 


F0 


E4 


A6 


19 


A9 


AO 


20 


45 


09AO- 


08 


E8 


E4 


1A 


90 


F8 


20 


E4 


09A8- 


08 


4C 


16 


08 


A2 


FF 


E8 


20 


09B0- 


OC 


FD 


9B 


00 


02 


C9 


8B 


BO 


09B8- 


F5 


86 


1A 


E8 


BB 


FF 


01 


29 


09CO- 


7F 


9D 


FF 


01 


CA 


DO 


F5 


A6 


09C8- 


1A 


40 


00 


00 


00 


00 


00 


00 



0967 


4Cl<i08 


ZMOUT 


JMP 


CETCHR 


(BACK TO MAINLINE 


09 6A 


2010FC 


ZBEG 


JSR 


BACKSP 


( BACKSPACE 


09<SD 


CA 




DEX 




(DECREMENT POSITION IN LINE 


096E 


DOFA 




BNE 


ZBEG 


(DO IT AGAIN IF NOT AT LINE START 


0970 


8619 




STX 


CHAR* 


(STORE CURSOR POSITION 


0972 


F0F3 




BEQ 


ZMOUT 


(BACK TO MAINLINE 


0974 




( 








0974 




i CHARACTER 


SEARCH ROUTINE 




MM 




i 








0974 




; 








0974 


297F 


CHRFNE 


AND 


♦ FIX 


(CONVERT NEG ASCII INPUT 


0974 


851B 




STA 


STRT 


(STORE KEY CHARACTER 


0978 


A619 




LDX 


CHAR* 


(GET PRESENT CURSOR POSITION 


097(1 


E8 


CHRFLP 


INX 




(INCREMENT CURSOR POINTER 


09 7B 


20F4FB 




JSR 


ADVANC 


(ADVANCE CURSOR 


097E 


E419 


CHRF1 


CPX 


CHAR* 


(AT OLD CURSOR POSITION? 


0980 


FOOD 




BEG) 


CHFOUT 


(YESf CHARACTER NOT FOUND 


0982 


E41A 




CPX 


EOL 


(END OF LINE? 


0984 


BOOC 




BCS 


SBEG 


(YES, START AGAIN AT LINE START 


09 84 


BD0OO2 




LDA 


BUFFER, X 


(GET CHARACTER AT THIS POSITION 


098? 


CS1B 




CMP 


STRT 


(SAME AS KEY? 


0988 


JDOED 




BNE 


CHRFLP 


(NO, TRY AGAIN 


098D 


8419 




STX 


CHAR* 


(YES, STORE CURSOR POSITION 


098F 


4C1608 


CHFOUT 


JMP 


GETCHR 


(BACK TO MAINLINE 


0992 


2010FC 


SBEG 


JSR 


BACKSP 


(BACKSPACE 


0995 


CA 




DEX 




(BEGINNING OF LINE? 


0996 


BOFA 




BNE 


SBEG 


(NO, BACKSPACE AGAIN 


0998 


F0E4 




BEQ 


CHRF1 


(YES, CONTINUE SEARCH 


09 9A 












09 9A 




(ZAP (DELETE TO END OF LINE) ROUTINE 


099A 












09 9A 


A619 


ZAP 


LDX 


CHAR* 


(GET CURSOR POSITION 


099C 


A9AO 




LDA 


♦BLANK 


(LOAD ACC. WITH SPACE CHAR 


099E 


204508 


ZAPLP 


JSR 


STRPNT 


(STORE AND PRINT IT 


09A1 


E8 




INX 




(NEXT POSITION 


09A2 


E41A 




CPX 


EOL 


(END OF LINE? 


09A4 


90F8 




BCC 


ZAPLP 


(NO, DO IT AGAIN 


09 A6 


20E408 




JSR 


RESTOR 


(YES, RESTORE CURSOR 


09A9 


4C1608 




JMP 


GETCHR 


(BACK TO MAINLINE 


09AC 












09AC 




(DISK 


INPUT ROUTINE 




09 AC 












09 AC 


A2FF 


DISKIN 


LDX 


♦ZERQ-M 


(INITIATE THE 


09AE 


E8 


DISKL1 


INX 




(CHAR* POINTER 


09AF 


200 CFD 




JSR 


KEYIN 


(GET A CHARACTER 


09B2 


9D00D2 




STA 


BUFFER. X 


(STORE IN BUFFER 


09B5 


C?8B 




CMP 


*CR 


(CARRIAGE RETURN? 


09 B7 


D0F5 




BNE 


DISKL1 


(NO, GET ANOTHER CHARACTER 


09 B9 


861 A 




STX 


EOL 


(YES, STORE CHARACTER COUNT 


09BB 


E8 




INX 




(INIT FOR ASCII CONVERSION 


09BC 


BDFFOl 


DISKL2 


LDA 


BUFFER-*1>X 


(GET BUFFER CHARACTER 


09BF 


297F 




AND 


♦ FIX 


(CONVERT FOR APPLESOFT 


09C1 


9BFF01 




STA 


BUFFER-»1,X 


(PUT IT BACK 


09C4 


CA 




DEX 




(COUNT BACK TO ZERO 


09C5 


B0F5 




BNE 


DISKL2 


(LOOP IF NOT FINISHED 


09C7 


A41A 




LDX 


EOL 


(CHAR COUNT IN X REG. 


09C9 


AO 




RTS 




(EXIT TO CALLER 



its OO 


j * * * * * * ****** * * * * * * * * * * 


osoo 


T + 


* 


OSOO 


r* INTERFACE CODE 


* 


OS GO 


r* FP - GETLH 


* 


06 OO 


r* 


* 


06 OO 


j* BY 


* 


06 OO 


;* 


* 


06 OO 


j* WES HUNTRESS 


* 


0BO0 


»* SIERRA MABRE» Ci 


i * 


08 OO 


j* ( 213 )-355-6125 


* 


06 OO 


;* 


* 


08 OO 


r* MAY 1980 


* 


OS OO 


i* 


* 


OS OO 


;********************** 


oaoo 


i 




08 OO 


i equates; constants 


i. ZERO PAGE 


osoo 


t 




osoo 


CURS EPZ *19 




osoo 


ZERO EPZ tOO 




osoo 


BLANK EPZ *A0 




osoo 


LENLQC EPZ $02 




osoo 


STADRL. EPZ *0S 




08 OO 


STADRH EPZ $09 




osoo 


STRLEN EPZ *IA 




osoo 


VARPTR EPZ *<s9 




OS OO 


r 




OS OO 


i equates: buffer & addresses 


osoo 


r 




OSOO 


BUFFER' EQU *0200 




OS OO 


GETLN EQU *0800 




08 OO 


EENTRY EQU $0810 
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Of. 


oo 




5'l RF'NT 


EQU 


40845 






it 


oo 




D I SKIN 


EQU 


409AC 






Of. 


oo 




BACKSF' 


EQU 


tFCIO 






Of. 


oo 
oo 
oo 




RETURN 


EQU 


4FC62 






Vfl: 






ORG 


$0300 






C: 


oo 




; 










02 


oo 




fPhlNT 


X* 


SUBROUTINE 






'.. J 

oo 


AO02 


PSCRN 


LDY 


♦LENLOC 






o: 


02 


'6 169 




LDA 


(OARPTR)jlr 




JGET X* STRING LENGTH 


02 


0* 


i ;5tH 




ST A 


STRLEN 




fSTORE STRING LENGTH PTR 


i/;? 


06 


C3 




INY 








o;; 


07 


B169 




LDA 


< OARPTRir 1 




!GET X* ADDR LOU BYTE 


or; 
02 


0'? 
OB 


6 50 to 




STA 
INY 


■STADRL 




JSTORE IN X$ ADDR PTR LOU 


02 


OC 


Bis 9 




LDA 


< OARPTRiy'i 




JGET X$ ADDR HI BYTE 


02 


OE 


B509 




STA 


STADRH 




f STORE IN X4 ADDR PTR HI 


0? 


.1.0 


A OOO 




Liu 


#ZERD 




i INITIATE THE 


0.7 


12 


A20O 




LDX 


♦ ZERO 




"t COUNTERS 


02 


.1.4 


B 10 S 


F'NTLF 


L»A 


(STADRD^r 




5GET -MID*(X*rYfl ) 


o;? 


U 


2:04508 




JSR 


STRFNT 




J STORE & PRINT 


02 


19 


E8 




INX 






J INCREMENT 


02 


:LA 


ca 




INY 






i COUNTERS 


o; 


IB 


(241 A 




CRY 


STRLEN 




SEND OF STRING ' 


02 


:l.D 


90F5 




ECC 


F'NTLF 




itiQ, GET -ANOTHER CHAR 


02 


J.F 


60 




RTS 






5EXIT TO CALLER 


02 


20 




j 










o;; 


20 




; PRINT 


X* 


rO SCREEN 






02 


20 




i 










02 


20 


200003 


PRINT 


JSR 


PSCRN 




SPRINT X* 


o; 


23 


2u62! : C 




JSR 


RETURN 




i DO A CARRIAGE RETURN 


02 
02 


26 


2>0 




RTS 






5EXIT TO CALLER 


27 




i 

i ED I T 


<i 








02 


27 




T 










02 


.-/ 


200003 


EDIT 


JSR 


PSCRN 




rPRINT X$ 


o; : 


2fi 


A9A0 




LDA 


♦BLANK 




fPUT SPACE CHAR 


0? 


2C 


9 BOO 02 


ED LP! 


STA 


BUFFER, X 




! .INTO REMAINING 


02 


2F 


E3 




INX 






J BUFFER SPACE 


o: 


30 


DOFf-i 




BNE 


EIiLF'i 






o; 


32 


2010FC 


" EDLF 2 


JSR 


BACKSP 




i RESTORE CURSOR: 


02 


35 


85 




DEY 






? TO LINE START 


o; 


36 


DOFh 




BNE 


EDLF2 






02 


38 


A 200 




LDX 


♦ ZERO 




; STORE CURSOR 


02 


3h 


Bftiy 




STX 


CURS 




.: POSITION 


02 


3C 


201005 




JSR 


EENTRY 




JGETLN EDIT ENTRY 


o; 
02 
02 

02 

. 02 


3F 


4C4503 




J MP 


TOXt 




JPUT IN X* 


42 




jxl KE 


I BOARD INPUT 






42 
42 


200003 


K'r'BIN 


JSR 


GETLN 




5GET A LINE 


02 


45 


A002 


TOXt 


LDY 


♦ LENLOC 




J TRANSFER STRING 


C\: 


47 


i:(H 




TXA 






i LENGTH PROM "'"<% 


co 


4 3 


9 169 




STA 


( OARPTR )>Y 




i TO Xi 


05 


4ft 


ca 




INY 








OS 


46 


H?00 




LDA 


♦ ZERO 




5 STORE 


02 


4D 


9169 




STA 


(OARPTRJf* 




5 KEYBOARFi 


o; 


4F 


C8 




INY 






■ BUFFER 


02 


50 


h?02 




LDA 


♦LENLOC 




i ATORFSS 


02 


52 


9169 




STA 


<OARFTR)>Y 




i INTO X* 


02 

0'.: 


54 


60 




RTS 






■EXIT TO CAI 1. FR 


5j 

'.'.'iD 




9 

;xi do 


i INPUT 






02 


55 




; 










02 


55 


20h0O7 


DOS IN 


JSR 


01 SKIN 




r GETLN PCS INPUT ifNTfiv 


0^ 


55 


*tC450'3 


*,:>0'j. 


JilP 
35F 


TOXt 




rPUT INPUT IN Xt 








03O0- 


AO 


02 Bi 69 


85 


1A C8 Bl 








03 03- 


69 


85 08 C8 


Bl 


69 85 09 








03.10- 


AO 


00 A2 00 


Bl 


08 20 45 








0318- 


08 


E8 C8 C4 


1h 


90 F5 60 








0320- 


20 


00 03 20 


62 


FC 60 20 








0328- 


00 


03 M M 


9D 


00 02 E8 








0330- 


00 


l-A 20 10 


FC 


88 DO FA 








0333- 


A2 


00 86 19 


20 


10 08 AC 








0340- 


45 


03 20 00 


08 


AO 02 8A 








0348- 


91 


69. CS A9 


00 


91 69 C8 








0350- 


A? 


02 91 69 


60 


20 AC 09 








0358- 


4C 


45 03 00 


00 


00 00 00 



from the character under the cursor to 
the end of the line, leaving a blank 
under the cursor. As you type in new 
characters, the old right-hand string is 

continuously shifted right. The -< 

and >• keys work on the inserted 

substring as before but will not allow 
editing left of the first inserted 

character. In the insert mode, >■ 

operates just like the space bar if keyed 
at the right-hand end of the substring. 
To terminate the insert mode, press 
ESC or RETURN. The old right-hand 
string is moved back one space for 
reconnection. 



The ESC ■<- 



command deletes 



the.character under the cursor and pulls 
left the entire string to the right of the 
cursor. The function is recursive, so 
that characters can continue to be 
deleted by repeated keying of the 

-< key. The first key pressed other 

than -< terminates the function. 

The ESC space bar command moves 
the cursor to the end of the. line. If the 
cursor is already at the end of the line, 
- then it is moved to the beginning. This 
function allows rapid transport of the 
cursor to the beginning or end of the 
line. 

The ESC char command moves the 
cursor right in the line to the first 
occurrence of the character key pressed 
after the escape key. If the character is 
not found before the end of the line, 
then the search branches to the begin- 
ning of the line. If the character is not 
found in the line, then the cursor is not 
moved. 

The ESC ctrl-shift-M command 
deletes the entire line to the right of the 
cursor including the character under 
the cursor. This function allows excess 
garbage to be cleared from the line for 
editing readability. 

Together these functions give you 

an intriguing and powerful text line 

editor. It's much more fun than the 

Apple monitor line input routine. Try 

it! You'll like it! 

IMCftO 
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16K RAM 

Expansion Board 
for the Apple II* 

$195.00 

• expands your 48K Apple to 
64K of programmable 
memory 

• works with Microsoft Z-80 
card, Visicalc, LISA ver 2.0 
and other software 

• eliminates the need for an 
Applesoft* or Integer Basic 
ROM Card 

• switch selection of RAM or 
mother board ROM 
language 

• includes installation and use 
manual 

• fully assembled and tested 



Distributed by Computer Data Services 

P.O. Box 469 

Lincoln, MA 01773 

(617)259-9791 



♦Apple II and Applesoft are trademarks of Apple 
Computer, Inc. 



ANDQOMEDA 

£JHNCC 



INCORPORATED" 

h Box 1 91 44 
Greensboro, NC 27410 
(919) 852-1482 

♦♦Formerly Andromeda Computer Systerr 
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Improved 

KIM Communication 

Capabilities 



Add new I/O capabilities to your 
KIM with this software/hardware 
combination. 



Ralph Tenny 
P.O. Box 545 
Richardson, Texas 75080 



Code and Text Transfer 

Unless he has a programmer, the 
small system owner often wonders how 
to program EPROMs for his system. 
Or, if he locates a friend with a pro- 
grammer on his system, he then must 
figure out how to develop the program 
code on the KIM, test it, and then get 
the code into the system with the pro- 
grammer. It is extremely likely that 
any scheme involving re-entry of the 
code in the second system will in- 
troduce errors, so it is desirable that the 
KIM produce a copy of its own code in a 
form usable by the second system. 

First you need a program which puts 
out the exact memory image of the 
developed and debugged program. 



KIMOUT is such a program, which 
uses a second RS-232 port added to 
KIM. The reason that KIM's serial port 
is not suitable (in many cases) is that 
the KIM port has a hardware echo built 
in. Also, in some cases, the I/O lines 
driving KIM's serial port are disturbed 
by the operating system. Thus, a sec- 
ond port (described lata:) allows you to 
have an unrestricted and undisturbed, 
echo-free serial I/O port which won't 
raffle the feathers of any other com- 
puter system it may be talking to. 

The chief difference between 
KIMOUT and any other memory dump 
program is that KIMOUT does no data 
formatting, and inserts no characters 
which are not part of the memory image 
desired in EPROM. The software 
shown uses the second serial I/O pro- 
gram which was adapted from KIM's 
software to drive the second serial port. 
All the "new" software is part of an ad- 
ditional 2K of EPROM added to KIM 
and located at C000 16 through C7FF, 6 . 
However, these routines have been 
located beginning at 02130 and 0300 by 
making the appropriate changes in 
addresses. 

Once the program to be ROMmed is 



ready, KIMOUT is given the starting 
and ending addresses of the program as 
follows: 



Address Low 
Address High 



Start 


End 


0002 


0004 


0003 


0005 





Table 1 




Baud 


17F2 


17F3 


Rate 


CNTL 30 


CNTH 30 


110 






300 


E8 


00 


1200 


35 


00 



+15v 



LOGIC "0" 



Ov UNDEFINED- 

-3v 



LOGIC "1" 



-15v 



BINARY LOGIC LEVELS 
FOR RS-232C 



Figure 1: RS-232 signals have a voltage 
"deadband" between + 3V and - 3V to in- 
crease the noise immunity of the equipment. 



+12v 



FROM 
KIM PBO 




RS 232 OUT 



3.9k 



Figure 2: Two transistors and some resistors 
make a very simple RS-232 output port to 
supplement KIM's current loop serial port. 




3.9k>R4 
TO < D1 * 

KIM PB7 



RS 232 IN 



Figure 3; One transistor buffered by resistors 

and diodes makes an RS-232 input port 

with protection against unexpected voltages. 
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Set the timing constants in CNTL30 
and CNTH30 (17F2, 17F3) for the pro- 
per data rate (see table 1), connect the 
two computers, start the receiving pro- 
gram in the other computer, then start 
KIMOUT. When KIMOUT has finished, 
it will re-light the KIM display, and you 
can terminate the receiving program. 

In my case, the receiving program 
was in a TM990/189 (TI's University 
Board), which uses only 300 baud. 
Once the data has been transferred, I 
check starting and ending bytes, and a 
few representative other locations in 
the '189 memory, then dump the data 
to audio tape. (The TM990/189 will 
make a digital tape if a Model 733 TI 
terminal is available.) The '189 at work 
can read this audio tape and there is a 
programmer attached to it. About five 
minutes after dumping the tape, I have 
another EPRDM for KIM! 

It should be noted that some 
EPROM programmers (and some com- 
puters) will require that data handled in 
this manner be formatted into blocks 
with checksums. The tapes themselves 
use TI's tag loader format, so the actual 
transfer between the two University 
Boards is protected by checksums. So 
far, I have never encountered an error 
introduced by the process described, so 
maybe I've been lucky! 

The program called TRANSLATE 
contains three smaller programs which 
cooperate in another type of data 
transfer. The Radio Shack TRS-80C™ 
computer has a 600 baud printer port, 
and the software issues only carriage 
returns instead of the CRLF pair issued 
by KIM and many other computers at 
the end of a line. I had no access to any 
600 baud printers, and even my CRT 
terminal needed the line feed to present 
a picture of the TRS-80C output. So, 
the first section of TRANSLATE 
(SETUP) beginning at 0200 will read 
code or text from memory and add a 
line feed to any carriage return found. 

The second section of TRANSLATE 
(RCV) beginning at 0238 will receive 
any continuous string of ASCII 
characters and place the characters in 
contiguous memory locations as long 
as there is memory left. If the string 
over-writes the end of the buffer (on 
KIM, the available buffer is 03E0-13FF), 
it quits listening and bounces back to 
the KIM monitor. Finally, the third sec- 
tion of TRANSLATE (CLEAR) clears 
memory beginning at the address 
specified in 0002 and 0003 (the same 
buffer is used for all sections of 
TRANSLATE) and extending through 
13FF. 



0800 




************************** 




0800 




* 


* 




0800 




* COMMUNICATIONS SUPPORT * 




0800 




* 


* 




0800 




* 


BY RALPH TENNY * 




0800 




* 


* 




0800 




************************** 




0800 




* 






0800 


PBD 


EQU $1702 




0800 


PBDD 


EQU $1703 




0800 


CNTL30 EQU $17F2 




0800 


CNTH30 EQU $17F3 




0800 


TIMH 


EQU $17F4 




0800 


START 


EQU $1C4F 




0800 


CRLF 


EQU $1E2F 




0800 


INITS 


EQU $1E88 




0800 


OUTCH 


EQU $1EA0 




0800 


PACK 


EQU $1FAC 




0800 


TOP 


EQU $1FD5 




0800 










0800 


SAL 


EPZ $02 




0800 


SAH 


EPZ $03 




0800 


EAL 


EPZ $04 




0800 


EAH 


EPZ $05 




0800 


YTMP 


EPZ $20 




0800 


TMPY 


EPZ $EE 




0800 


INL 


EPZ $F8 




0800 


TEMP 


EPZ $FC 




0800 


TMPX 


EPZ $FD 




0800 


CHAR 


EPZ $FE 




0800 










0200 






ORG $200 




0200 






OBJ $800 




0200 










0200 




*** 


TRANSLATE *** 




0200 










0200 




THIS 


PROGRAM RECEIVES A HEX ASCII TEXT STRING 


0200 




OVER KIM'S STANDARD SERIAL PORT AND STORES 


0200 




THE STRING IN CONTIGUOUS MEMORY LOCATIONS. 


0200 




THIS 


SAME TEXT STRING CAN THEN BE OUPUT TO A 


0200 




PRINTER OR OTHER RS 232 DEVICE FOR DISPLAY. 


0200 




THIS 


ALLOWS KIM TO RECEIVE 


FROM A CPU WHICH 


0200 




HAS NO BAUD RATE SELECTION, 


AND TO OUTPUT 


0200 




TO A 


PRINTER AT ANY BAUD RATE DESIRED. 


0200 










0200 




THIS 


SECTION READS MEMORY, 


RESETS THE PRINTER 


0200 




(CARRIAGE RETURN-LINE FEED) 


IF THE CHARACTER 


0200 




ISA 


CARRIAGE RETURN ($0D) 


AND OUTPUTS 


0200 




ALL OTHER CHARACTERS. 




0200 










0200 


20881E i 


SETUP 


JSR INITS 


SET UP KIM STANDARD PORTS 


0203 A000 


[NDX 


LDY #$00 


INITIALIZE Y INDEX 


0205 


8420 




STY YTMP 


AND POINTER REGISTER 


0207 A420 ( 


DUT 


LDY YTMP 


PICK UP POINTER VALUE 


0209 B102 




LEA (SAL),Y 


AND INDEX INTO TEXT BUFFER. 


020B 


C90D 




CMP #$0D 


IS IT A CARRIAGE RETURN? 


020D 


F011 




BEQ RESET 


IF SO, RESET THE PRINTER. 


020F 


20A01E 




JSR OUTCH 


OTHERWISE, OUTPUT CHARACTER. 


0212 E620 




INC YTMP 


THEN BUMP THE POINTER. 


0214 


D007 




BNE MORE 


TEST FOR END-OF-MEMORY PAGE. 


0216 


18 




CLC 


IF SO, PREPARE TO ADD 


0217 A503 




LDA SAH 


GET PAGE POINTER 


0219 


6901 




ADC #$01 


AND INCREMENT IT 


021B 


8503 




STA SAH 


RESTORE PAGE POINTER 


021D 


4C0702 I 


10RE 


JMP OUT 


AND KEEP TRUCKIN" 


0220 


202F1E I 


1ESET 


JSR CRLF 


RESET THE PRINTER 


0223 A520 




LDA YTMP 


GET THE POINTER 


0225 


38 




SEC 


FORCE A CARRY 


0226 6502 




ADC SAL 


TO BUMPT LO BYTE OF ADDRESS 


0228 


8502 




STA SAL 


AND RESTORE ADDRESS 


022A A503 




LDA SAH 


GET THE HI BYTE 


022C 


6900 




ADC #$00 


ADD IN POSSIBLE CARRY 


022E 


8503 




STA SAH 


AND PUT HI BYTE BACK 


0230 C914 




CMP #$14 


END OF MEMORY? 


0232 D0CF 




BNE INDX 


IF NOT, MOVE ON OUT 


0234 


4C4F1C 




JMP START 


OTHERWISE, RETURN TO KIM 


0237 


00 




BRK 




0238 




' 






0238 




■THIS 


SECTION RECEIVES INCO 


1ING HEX ASCII 



1„ 
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; " 



0238 


.-CHARACTERS AND STORES THEM IN MEMORY LOCATIONS 


0238 


;DEFINED IN $02 AND $03. 




0238 








0238 205103 


RCV 


JSR INIT 


INITIALIZE SECOND PORT 


023B A000 




LDY #$00 


SET Y TO ZERO 


023D 8420 




STY YTMP 


ALONG WITH POINTER REGISTER 


023F 201F03 


IN 


JSR GETCHP 


■READ SECOND PORT 


0242 C902 




CMP #$02 


■VALID CHARACTER? 


0244 30F9 




BMI IN 


IF NOT, KEEP TRYING 


0246 A420 




LDY YTMP 


PUT POINTER IN Y REGISTER 


0248 9102 




STA (SAL) ,Y 


AND DEPOSIT THE BYTE 


024A E620 




INC YTMP 


BUMP THE POINTER, 


024C D0F1 




BNE IN 


TEST FOR MEMORY PAGE END 


024E A503 




LDA SAH 


IF SO, GET PAGE POINTER 


0250 18 




CLC 


PREPARE FOR ADD 


0251 6901 




ADC #$01 


INCREMENT PAGE TOINTER 


0253 8503 




STA SAH 


■AND PUT IT BACK 


0255 C914 




CMP #$14 


TEST FOR MEMORY END 


0257 D0E6 




BNE IN 


IF NOT, GO GET MORE DATA 


0259 4C4F1C 




JMP START 


OTHERWISE, RETURN TO KIM 


025C 








025C 


;THIS SECTION CLEARS A MEMORY BUFFER BY WRITING 


025C 


;$00 


EN EACH LOCATION 




025C 








025C AOOO 


CLEAR 


LDY #$00 


CLEAR INDEX POINTER 


025E 98 




TYA , 


AND THE ACCUMULATOR 


025F 9102 


WRITE 


STA (SAL) ,Y 


CLEAR MEMORY BUFFER 


0261 E602 




INC SAL , 


BUMP THE INDEX 


0263 DOFA 




BNE WRITE , 


TEST FOR MEMORY PAGE END 


0265 A503 




LDA SAH 


IF SO, GET PAGE POINTER 


0267 18 




CLC , 


PREPARE TO ADD 


0268 6901 




ADC #$01 


ONE TO PAGE POINTER 


026A 8503 




STA SAH 


AND PUT IT BACK. 


026C C914 




CMP #$14 


END OF MEMORY? 


026E DOEC 




BNE CLEAR , 


IF NOT, CLEAR MORE MEMORY 


0270 4C4F1C 




JMP START , 


OTHERWISE, RETURN TO KIM 


0273 








0273 


■KIMOUT 




0273 








0273 


;THIS 


PROGRAM UTILIZES A SECOND RS-232 PORT ON 


0273 


;KIM TO OUTPUT A CONTINUOUS 


DATA STREAM 


0273 


; (USUALLY TEXT OR PROGRAM D? 


kTA) TO AN EPRCM 


0273 


.•PROGRAMMER OR PRINTER. 




0273 








0280 




ORG SETUP+$80 




0280 




OBJ $880 




0280 


* 






0280 205103 


STRT 


JSR INIT 


SET UP POINTER STORAGE 


0283 A900 


ZERO 


LDA #$00 


SET INITIAL POINTER VALUE 


0285 8520 




STA YTMP 


IN A SAFE LOCATION 


0287 A420 


GET 


LDY YTMP 


LOAD POINTER INTO INDEX 


0289 B102 




LDA (SAL) ,Y , 


GET A BYTE OF DATA 


028B 200003 




JSR PRTBYT 


AND OUTPUT IT 


028E E620 




INC YTMP 


BUMP THE POINTER 


0290 18 




CLC 


PREPARE TO ADD 


0291 A502 




LDA SAL 


LO BYTE START ADDRESS 


0293 6520 




ADC YTMP 


;TO THE POINTER 


0295 8502 




STA SAL 


•FOR NEW START ADDRESS 


0297 A503 




LDA SAH 


;GET HI BYTE 


0299 6900 




ADC #$00 


;ADD IN POSSIBLE CARRY 


029B 8503 




STA SAH 


;AND RESTORE HI BYTE 


029D A502 




LDA SAL 


•GET LO BYTE 


029F C504 




CMP EAL 


AND COMPARE TO END LO BYTE 


02A1 9008 




BCC NEXT 


•IF NOT, GO MOVE MORE DATA 


02A3 A503 




LDA SAH 


OTHERWISE, CHECK HI BYTE 


02A5 C505 




CMP EAH 


AGAINST END HI BYTE 


02A7 F005 




BEQ OUTK 


IF EQUAL, 


02A9 1003 




BPL OUTK 


OR BIGGER, STOP 


02AB 4C8002 


NEXT 


JMP STRT 


OTHERWISE DO MORE 


02AE 4C4F1C 


OUTK 


JMP START , 


DONE, EXIT TO KIM 


02B1 00 




BRK 




02B2 








02B2 


; SERIAL I/O 




02B2 








02B2 


;THIS 


PROGRAM IS A SLIGHTLY 


MODIFIED COPY OF 


02B2 


; PORTIONS OF THE KIM-1 MONH 


VR FUNCTIONS; 


02B2 


;WITH THE EXCEPTION OF INIT, 


THE LABELS HAVE BEEN 


02B2 


; PRESERVED. THE MODIFICATIC 


JNS ACCOMODATE THE USE 


02B2 


;OF A 


SEPARATE RS-232 SERIAI 


. PORT, IMPLEMENTED IN 


02B2 


; CONJUNCTION WITH THE APPLIC 


STICKS I/O PORT OF KIM. 








(continued) 



TRANSLATE has made it possible 
for me to "translate" the Radio Shack 
computer output from 600 baud to 300 
baud for a borrowed printer. Both 
TRANSLATE and KIMOUT will handle 
any type of computer data, because 
they deal with exact memory images of 
the data. I can even generate text such 
as this on KIM and bring it to this word 
processor for final editing, formatting 
and printing on a daisy-wheel printer! 

Add A Second RS-232 Pott 

One problem with the KIM port is 
that it has a hardware echo built in 
which is inappropriate in some applica- 
tions. Also, since the software is all in 
ROM, it is impossible to modify. These 
problems may be simply solved by 
creating a second RS-232 port. 

The 20 mA loop port on the KIM-1 
can be converted to an RS-232 port by 
adding some transistors to shift the 
input/output levels to match RS-232 
specifications. Figure 1 details the 
voltage levels which make up the 
RS-232 specification. Some RS-232 
peripheral devices will work with a 
smaller voltage swing or other devia- 
tions from the spec, but to be sure, 
build the simple circuits shown in 
figures 2 and 3. 

Figure 2 shows the output circuit. 
This port will swing to full RS-232 
levels and should meet all drive re- 
quirements for almost any imaginable 
peripheral device. Ql is the output 
switch, while Q2 is a non-inverting 
level converter which allows the full 
± 12v RS-232 swing from Ql, without 
requiring an open-collector stage on the 
port line or the UART. 

The problem of matching RS-232 in- 
put levels to another port pin is solved 
by the circuit shown in figure 3. A 
single transistor with input protection 
can accept ± 12v swings and convert 
them to a level KIM is happy with. Rl, 
Dl and D2 form a protective network 
for the transistor base: Also Rl with R2 
provides adequate input impedance for 
the incoming signal. R3 is a pull-up to 
hold the port's input line at a spacing 
level flogic 0) when there is no input 
signal. 

The KIM provides the basic soft- 
ware UART routines. The routines 
fPRTBYT, GETCH, OUTSP, OUTCH, 
and CRLF), use bit PB0 of the KIM 
Control Port to drive the output, and 
incoming data is read on PA7. We can 
do about the same thing, using PB0 of 
the Application Port for an output and 
PB7 for input. With those pin 
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Make Your 
Reference Library 
Complete With 

The Best of MICRO 



Volume 1— Contains 46 articles 
from October/November 1977 
through August/September 1978: 
Apple articles (16), AIM 65 (1), 
KIM-1 (10), PET (9), OSI (1), 
SYM-1 (1), and General (8). 176 
pages plus 5 tear-out reference 
cards (Apple, KIM, PET, and 
6502), 8V2 x 11 inches, paper- 
bound. ■ $6.00 



Volume 2— Contains 55 articles 
from October/November 1978 
through May 1979: Apple articles 
(18), AIM 65 (3), KIM-1 (6), PET 
(12), OSI (3), SYM-1 (4), and 
General (9). 224 pages, 8 1/2 X 
1 1 inches, paperbound. $8.00 



Volume 3— Contains 88 articles 
from June 1979 through May 
1980: Apple articles (24), AIM 65 
(7), KIM-1 (9), PET (15), OSI (14), 
SYM-1 (11), and General (8). 320 
pages, 8V2 x 11 inches, paper- 
bound. $10.00 

Ask for The Best of MICRO at 

your computer store. Or, to order 
with VISA or Mastercard 

Call TOLL-FREE 

800-227-1617 

Extension 564 

In California 800-772-3545 
Extension 564 



VISA* 



master charge 



On orders received by August 
31, 1981, we pay all surface ship- 
ping charges. 

JNCftO 

P.O. Box 6502 
Chelmsford, MA 01824 



02B2 


;IN ADDITION, THE Y REGISTER OF THE 6502 HAS BEEN 


02B2 


;SAVED WHERE APPROPRIATE. 




02B2 






0300 


ORG $300 




0300 


OBJ $900 




0300 


1 




0300 85FC 


PRTBYT STA TEMP 


SAVE ACCUMULATOR 


0302 4A 


LSR 


SHIFT OFF LOW NIBBLE 


0303 4A 


LSR 


TO ACCESS 


0304 4fi 


LSR 


THE HIGH ORDER 


0305 4A 


LSR 


NIBBLE FOR OUTPUT 


0306 201103 


JSR HEXTA 


CONVERT TO HEX AND OUTPUT 


0309 A5FC 


LDA TEMP 


GET OTHER HALF 


030B 201103 


JSR HEXTA 


CONVERT TO HEX AND OUTPUT 


030E A5FC 


LDA TEMP 


RESTORE BYTE IN A 


0310 60 


RTS 


AND RETURN 


0311 290F 


HEXTA AND #$0F 


MASK OFF HI NIBBLE 


0313 C90A 


CMP #$0A 


TEST FOR ALPHA 


0315 18 


CLC 


PREPARE TO ADD 


0316 3002 


BMI HEXTA1 


NOT ALPHA 


0318 6907 


ADC #$07 


ALPHA, ADD MORE 


031A 6930 


HEXTA1 ADC #$30 


FIX NON-ALPHA 


031C 20ACI1E 


JSR OUTCH 


OUTPUT IT 


031F 86FD 


GETCHP STX TMPX 


SAVE X REG 


0321 84EE 


STY TMPY 


AND Y REG 


0323 A208 


LDX #$08 


COUNT OF 8 BITS 


0325 A901 


LDA #$01 


MASK IN ACCUMULATOR 


0327 2C0217 


GET1 BIT PBD 


TEST FOR START BIT 


032A EA 


NOP 




032B EA 


NOP 




032C 30F9 


BMI GET1 


KEEP TRYING 


032E 209303 


JSR DELAY 


DELAY ONE BIT 


0331 20AA03 


GET5 JSR DEHALF 


DELAY 1/2 BIT 


0334 AD0217 


GET2 LDA PBD 


GET 8 BITS 


0337 2980 


AND #$80 


MASK OFF LOW ORDER BITS 


0339 46FE 


LSR CHAR 


SHIFT CHARACTER RIGHT 


033B 05FE 


ORA CHAR 


OR IN RECEIVED BIT 


033D 85FE 


STA. CHAR 


AND RESTORE CHAR 


033F 209303 


JSR DELAY 


DELAY ONE BIT TIME 


0342 CA 


DEX 


AND COUNT BIT 


0343 D0EF 


BNE GET2 


REPEAT UNTIL 8 BITS IN 


0345 20AA03 


JSR DEHALF 


THEN, DELAY 1/2 BIT 


0348 A4EB: 


LDY TMPY 


RETRIEVE Y 


034A A6FD 


LDX TMPX 


AND X 


034C A5FE 


LDA CHAR 


GET THE CHARACTER 


034E 2A 


ROL 


AND SHIFT OFF THE 


034F 4A 


LSR 


PARITY BIT, THEN 


0350 60 


RTS 


RETURN 


0351 A201 


INIT LDX #$01 


TURN ON ONE BIT 


0353 8E0317 


STX PBDD 


IN THE USER PORT 


0356 D8 


OLD 


SET UP BINARY MODE 


0357 78 


SEI 


INHIBIT INTERRUPTS 


0358 60 


RTS 


AND RETURN 


0359 A920 


OITTSP LDA #$20 


ASCII SPACE 


035B 85FE 


OUTCHA STA CHAR 


SAVE THE CHARACTER 


035D 84EE 


STY TMPY 


THE Y REG, 


035F 86FD 


STX TMPX 


AND X REG 


0361 209303 


JSR DELAY 


■ONE BIT DELAY 


0364 AD0217 


LDA PBD 


•READ THE PORT 


0367 29FE 


AND #$FE 


•SET THE START BIT 


0369 8D0217 


STA PBD 


•OUTPUT THE BIT 


036C 209303 


JSR DELAY 


•WAIT ONE BIT TIME 


036F A208 


LDX #$08 


•EIGHT BIT COUNT 


0371 AD0217 


OUT1 LDA PBD 


■GET THE OUTPUT BIT 


0374 29FK 


AND #$FE 


;MASK START BIT 


0376 46FI! 


LSR CHAR 


•SHIFT BIT OUT OF CHAR 


0378 6900 


ADC #$00 


•ADD IN CARRY BIT 


037A 8D0217 


STA PBD 


■AND OUTPUT IT 


037D 209303 


JSR DELAY 


fWAIT ONE BIT TIME 


0380 CA 


DEX 


■COUNT THE BIT 


0381 DOEE 


BNE OUT1 


fNOT DONE, GO BACK 


0383 AD0217 


LDA PBD 


;LOAD THE OUTPUT BIT 


0386 0901 


ORA #$01 


;SET IT HGH 


0388 8D0217 


STA PBD 


;TO OUTPUT STOP BIT 


038B 209303 


JSR DELAY 


;AND WAIT AGAIN 


038E A6FD 


LDX TMPX 


;REMEMBER X 


0390 A4EI! 


LDY TMPY 


;AND Y 


0392 60 


RTS 


;AND RETURN 


0393 ADF317 


DELAY LDA CNTH30 


•GET HI BYTE DELAY COUNT 
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0396 8DF417 


STA T1MH 


STUFF IT IN THE TIMER 


0399 ADF217 


LDA CNTL30 


AND GET THE LO BYTE 


039C 38 


DE2 SEC 


SET CARRY FOR SUBTRACT 


039D E901 


DE4 SBC #$01 


DECREMENT LO BYTE 


039F B003 


BCS DE3 


BRANCH IF NO BORROW 


03A1 CEF417 


DEC TIMH 


DECREMENT TIMER VALUE 


03A4 ACF417 


DE3 LDY TIMH 


AND STUFF IT IN Y 


03A7 10F3 


BPL DE2 


RETURN IF NOT NEGATIVE 


03A9 60 


RTS 


■OTHERWISE, RETURN 


03AA ADF317 


DEHALF LDA CNTH30 


DELAY 1/2 BIT TIME 


03AD 8DF417 


STA TIMH 


■BY DOING A DOUBLE 


03B0 ADF217 


LDA CNTL30 


RIGHT SHIFT OF 


03B3 4A 


LSR 


THE COUNT VALUES 


03B4 4EF417 


LSR TIMH 


AND THEN 


03B7 90E3 


BCC DE2 


COUNTING THEM DOWN 


03B9 0980 


ORA #$80 


FORCE A NEGATIVE 


03BB B0EO 


BCS DE4 


TO FORCE A BRANCH. 


03BD 00 


BRK 


BLOCK SEPARATOR 


03BE 201F03 


GETBYT JSR GETCHP 


GO GET A CHARACTER 


03C1 20AC1F 


JSR PACK 


MAKE IT A NIBBLE 


03C4 201F03 


JSR GETCHP 


GET ANOTHER CHARACTER 


03C7 20AC1F 


JSR PACK 


STUFF IT WITH THE OTHER 


03CA A5F8 


LDA INL 


GET THE WHOLE THING 


03CC 60 


RTS 


AND RETURN 


03CD A207 


CRLFD LDX #$07 


SET INDEX TO SEVEN, 


03CF BDD51F 


PRTST LDA TOP,X 


OUTPUT CR,LF AND 


03D2 20A01E 


JSR OUTCH 


NULLS 


03D5 CA 


DEX 


■COUNT THE CHARACTERS 


03D6 10F7 


BPL PRTST 


■LOOP UNTIL DONE 


03D8 60 


RTS 


•AND RETURN 


03D9 00 


BRK 





assignments and a program based on 
the KIM routines, we can minimize the 
effort needed to build and program a 
new serial port. The program in listing 
1 is basically a copy of the KIM soft- 
ware UART. Note that your choice of 
input pin will allow you to use these 
same routines to cause the input from 
the terminal or a keyboard to generate 
an interrupt if you so choose. This may 
be implemented following instructions 
in the KIM Usei Manual (Appendix H) 
for using PB7 to cause an interrupt. 

Any routine which calls this serial 

I/O program should first call INIT - 

(JSR INIT), the normal KIM-1 power-up 

initialization routine which configures 

the B Application Port as output on 

PB0. If you use the remaining five pins 

of Port B for other purposes, you must 

override the pin assignments or change 

the value loaded in X by the statement 

at 0251 16 to accommodate the needs of 

your other hardware. Once the new 

port has been initialized, you can use 

any of the routines in this program in 

exactly the same manner as you have 

previously used the similar routines 

from the KIM-1 monitor. _^_ 

JMCRO 



32 K BYTE MEMORY 

RELIABLE AND COST EFFECTIVE RAM FOR 
6502 b 6800 BASED MICROCOMPUTERS 

AIM 65-*KIM*SYM 

PET*S44-BUS 



• PLUG COMPATIBLE WITH THE AIM-65/SVM EXPANSION 
CONNECTOR 'BY USING A RIGHT ANGLE CONNECTOR 
(SUPPLIED) MOUNTED ON THE BACK OF THE MEMORY 
BOARD. 

• MEMORY BOARD EDGE CONNECTOR PLUGS INTO THE 
6800 S 44 BUS. 

« CONNECTS TO PET OR KIM USING AN ADAPTOR CABLE. 

• RELIABLE-DYNAMIC RAM WITH ON BOARD INVISIBLE 
REFRESH-LOOKS LIKE STATIC MEMORY BUT AT 
LOWER COST AND A FRACTION OF THE POWER 
REQUIRED FOR STATIC BOARDS. . 

» USES *5V ONLY. SUPPLIED FROM HOST COMPUTER. 

• FULL DOCUMENTATION. ASSEMBLED AND TESTED 
BOARDS ARE GUARANTEED FOR ONE YEAR AND 
PURCHASE PRICE IS FULLY REFUNDABLE IF BOARD IS 
RETURNED UNDAMAGED WITHIN 14 DAYS. 

ASSEMBLED WITH 32K RAM $349 00 

* WITH 16K RAM $329 00 

TESTED WITHOUT RAM CHIPS $30900 

HARD TO GET PARTS (NO RAM CHIPS) 

WITH BOARD AND MANUAL . $ 99.00 

BARE BOARD J MANUAL $ 49.00 




U.S. PRICES ONLY 




16K MEMORY 
EXPANSION KIT 



ONLY 



$29 



FOR APPLE, TRS-80 KEYBOARD, 
EXI0Y, AND ALL OTHER 16K 
DYNAMIC SYSTEMS USING 
MK4116-3 OR EQUIVALENT 
DEVICES. 

• 200 NSEC ACCESS, 375 NSEC 
CYCLE 

• BURNED-IN AND FULLY 
TESTED 

• 1 YR. PARTS REPLACEMENT 
GUARANTEE 

• QTY. DISCOUNTS AVAILABLE 



ALL ASSEMBLED BOARDS AND 
MEMORY CHPS CARRY A HILL ONE 
YEAR REPLACEMENT WARRANTY 



I230 W.COUIDJ AVE. 

ORflflGE. Cfi 92668 

(714)633 7280 
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Asteron - The definitive 
res implementation of the As 
teroids arcade game. Fea 
tures: Ship movement, hyper- 
space, alien saucers, sound 
effects, graphic routines 
allowing up to 25 objects to 
be displayed with real time re- 
sponse. Played from paddles 
or keyboard. $27 50 



Star Avenger -High speed 
guerrilla warfare in space pit- 
ting you against your Apple. 
Featuring a new universe 
each game and varying skill 
levels. Universe consists of 
16 hi-res screens with instant- 
aneous crossover. . „_ 

$27.b0 



^##** 




Shooting Gallery - a real 
time simulation of a midway 
arcade. Features: row targets, 
pop targets, different skill 
levels, and bonus time. May 
be played using either game 
paddles or joy sticks. 

$22.50 




NORAD: A high-speed, real- 
time simulation of a nuclear 
conflict between a "non-im- 
perialist" aggressor nation 
and his controlled "sphere-of- 
influence" and the United 
States of America. As the Am- 
erican player, you must pro- 
tect your cities and A.B.M. 
sites and survive their contin- 
uous onslaught, toy Cfl 



MultiBooU Upgrade 

Have you not wished that your 
Basic software would work in both 
DOS 3.2 and 3.3? Tired of spend- 
ing hours "Muffin'Mng your old 
programmes? Well, your problems 
are solved. This |ets you take a 3.2 
diskette and upgrade it so that it 
can be booted on a 3.3 (or 3.2) 
machine while maintaining a 3.2 
environment. This means your 3.2 
programmes never need to be 
modified for 3.3 machine use. 
$50.00 



All Western MicroData game software is 
written in assembly language for maximum 
speed. All programmes require 48K and 
DISK DRIVE and will work on standard 
Apple II, Apple II plus, and Pascal systems, 
with either DOS 3.2 or DOS 3.3. 

Western MicroData 
Enterprises Ltd. 

P.O. BoxG33, Postal Station G 



Calgary; Alberta 
Canada T3A2G1 
1-403-247-1621 



Prices subject to change 
without notice. 



For U.S. and foreign orders, prices 
are in U.S. dollars. For Canadian 
orders, prices are in Canadian dof- 
lars. Send Certified Cheque, Postal 
Money Order, or International Money 
Order only. Allow 3-4 weeks for 
cheque to clear if not certified and 
allow up to 4 weeks for delivery. 

Dealer and Computer Club enquiries 
invited. 

Apple Is a registered trademark of 

Apple Computer Inc. 
• Disk II Is a registered trademark of 

Apple Computer Inc. 



THE PERFORMANCE SLICE 



\ mes »» 



ferns. »JL r ""'»g of :.»":• 



l. 3 "" Zr^O.this 



ACCOUNTS - 

PAYABLE COMING SOON! 

Complete your accounting system with the si 



™*tainer n1 °rmati 0n P °% 



* Complete your accounting system with the soon to be released 
A/P package, featuring automatic application of credit and debit 
memos, open or closed item listing, full invoice aging, and 
multiple reports that provide a complete transaction review. 

* Ytar bookkeeping doesn't hiw to be i bulky, complicated prociu. The 
SBCS Accounting System it duigned lor flexibility ind high performance 
with a cart tffectjventu rare to benefit your butlnenl 

YOU NEED EXPERIENCE WORKING FOR YOU 
* Package* available at your local Apple dealer. 



SMALL BUSINESS COMPUTER SYSTEMS 

alii Grrrni/vood. Li r.coln.N 168504(402) 467-1 878 



M 



M 



M 



M 



END FRVSTRA TIONH 



FROM CASSETTE FAILURES 
PERRY PERIPHERALS HAS 
THE HDE SOLUTION 
OMNIDISK SYSTEMS (5" and 8") 

ACCLAIMED HDE SOFTWARE 

• Assembler, Dynamic Debugging Tool. 
Text Output Processor, Comprehensive 
Memory Test 

• HDE DISK BASIC NOW AVAILABLE 
PERRY PERIPHERALS S-IOO PACKAGE 

Adds Omnidisk (5") to 
Your KIM/S-1 00 System 

• Construction Manual— No Parts 

• FODS & TED Diskette 

• $20. +52. postage & handling. (NY residents 
add 7% tax) (specify for 1 or 2 drive system) 

Place your order with: 
PERRY PERIPHERALS 

P.O. Box 924 
Miller Place, N.Y. 11764 
(516)744-6462 



Your Full-Line HDE Distributor/ Exporter 
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Amper Search 
for the Apple 



i 



High speed machine language 
search routine finds character 
strings in BASIC arrays. 



Alan G. Hill 

12092 Deerhorn Dr. 

Cincinnati, Ohio 45240 



The July, 1979 issue of MICRO included 
my article entitled "Amper-Sort" 
which described and utilized the "&" 
command of Applesoft BASIC to pass 
parameters to a machine language sort 
routine. Now comes Amper-Search, a 
program which, besides being" a useful 
addition to your Amper-library, 
demonstrates how parameters can be 
passed bi-directionally. 

Amper-Search is a high-speed 
character search routine that will find 
and return the subscripts of all occur- 
rences of a specified character string in 
a target string array. A search of a 2000 
element array will take less than 1 sec- 
ond compared to about 90 seconds for 
an equivalent BASIC routine. Para- 
meters are used to name the target 
string array, define the character string, 
define the bounds of the search, and 
name the variables to receive the 
subscripts and number of matches. An 
added bonus in the Amper-Search cade 
is another routine called &DEALLOC. 
Its function is to give- your BASIC pro- 
gram the ability to de-allocate a string 
array or integer array when it's no 
longer needed. &DEALLOC can be used 
with any Applesoft BASIC program. 

Let's look at the parameters and 
how they are passed between the 
Applesoft program and Amper-Search. 
The general form is: 

&S[EARCH](NA$,L,H,ST$,PL,PH, 
l%,N%) 



Listing 1 

1 HI MEM: 9 * 4096 +2* 256 

2 D* = CHR* <4)I PRINT IiVNOMONC I ,0" 

3 PRINT H$"BL0AD B . AMPER-SEARCH( 48K ) 

4 POKE 1013.76: POKE 1014.0: POKE 1015.1461 REM '3F5! W 

5 DIM NA«< 10 >.IX< 10 ) 

20 NA«U> ) = "APPLE CORE" 

21 NA«< 1) = "CRAB APPLE" 

22 NA*<2> - "APPLES.0RANGE" 

23 NA*(3> = "APPLE/ORANGE" 

24 LIST 5.23 

100 REM FIND ALL OCCURRENCES OF 'APPLE 

101 NX = 0:ST* = "APPLE" 

102 «. SEARCH(NA$.0-»10»ST$»1.255,I7.,N/: ) 

103 LIST 100.1021 G0SUB. 20001 GOSUB 3000 

200 REM FIND 'APPLE' IN NA*( ) -> NAK 1 ) COLUMNS 1 -> 5 

201 NX = 0!ST« = "APPLE" 

202 & SEARCH<NA*.0.1»ST*. 1.5,1%. N7.) 

203 LIST 20O.2O2! GOSUB 2000! GOSUB 3000 

300 REM FIND 'APPLE ORANGE". 

301 nx = o:sr* = "apple". + chr* <i4) + •• orange" 

302 & SEARCH<NA*.-0r3,3T*.1.255.r/:>N/; ) 

303 LIST 300.302: GOSUB 2O0OI GOSUB 3000 

400 REM FIND 1ST 'ORANGE' 

401 NX = - i!ST* = "ORANGE" 

402 & SEARCH(NA*.0*3.ST*»1.255.IX.NX ) 

403 LIST 400.402! GOSUB 2000: GOSUB 3000 
490 ST* = "CRAB" 

492 REM DYNAMICALLY ALLOCATE/DEALLOCATE MX 
495 FOR J = 1 TO 2 

500 nx = o:k% = 

501 & SEARCH(NA1i.0.3,ST$,l.255.K;:.N/; ) 
DIM MX<NXKNX = 

& SEARCH(NA4.0»3.ST*,1.255.»MX,NX ) 
LIST. 490.530! GOSUB 2100I GOSUB 3000 
$> DEALL0C< MX ) 

520 ST$ = "APPLE" 
530 NEXT J 

600 REM FIND 'E' IN COLUMN 10 

601 NX = 0:ST* =• "E" 

602 &. search<na$.o.3..st$.io,io.i;'..n;:j 
list 600. .602! gosub 2000 

END 

IF NX = THEN PRINT "NONE FOUND" !■ RETURN 

FOR I =• TO NX - 1 

HTAB 4! PRINT NA$( I7.CI ),) 

NEXT I 

PRINT ! RETURN 

IF NX = THEN PRINT "NONE FOUND"! RETURN 

PRINT 

FOR I = TO NX - 1 

HTAB 41 PRINT NA*( MX( I ) ) 

NEXT I 

PRINT : RETURN 

FOR I = 1 TO 5000! NEXT Ii RETURN 



«?20O 



5.02 
503 
504 
510 



603 

700 

2000 

2005 

2010 

2020 

2030 

2100 

2105 

2110 

2120 

2130 

2140 

3000 



(continued) 
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where: 

[ ] bracket optional characters. The 
"&.S" are required characters. 

NA$ is the variable name of the single- 
dimensional string array to be 
searched. 

L is a variable, constant, or expres- 
sion specifying the value of the 
subscript of NA$ where the search 
is to begin, i.e. NA$(L). 

H is a variable, constant, or expres- 
sion specifying the value of the 
subscript of NA$ where the search 
is to end, i.e. NA$(H). 

ST$ is the variable name of the simple 
string containing the "search" 
characters. A special case exists if 
the string contains a Control N 
character. See note 4. 

PL is a variable, constant, or expres- 
sion specifying the character posi- 
tion in the NA$(I) string where 
the search is to begin. 

PH is a variable, constant, or expres- 
sion specifying the character posi- 
tion in the NA$(I) string where 
the search is to end. PL and PH 
are equivalent to the MID$ state- 
ment of the form: MID$(NA$(I], 
PL,PH-PL+1). 

1% is the name of the single- 
dimensional integer array into 
which the subscripts of NA$ will 
be placed when a "match" is 
found. The first occurrence will 
be placed in I%[0). A special case 
exists if 1% is a simple variable 
rather than an array variable. See 
note 5. 

N% is the name of the simple integer 
variable into which the number 
of "matches" will be placed by 
Amper-Search. N% should be set 
to zero each time before Amper- 
Search is invoked. Setting N% <0 
is a special case. See note 6. 

After Amper-Search is invoked, the 
elements of NA$ which match the ST$ 
string may be listed with the state- 
ment: FOR 1=0 TO N96-1: PRINT 
NA$(I%(I)):NEXTI. 

Notes 

1 . A match is defined as the consec- 
utive occurrence of all characters 
in ST$ with those in NA$|L) 
through NA$(H) and within the 
PL and PH character positions of 
NA$fI). A Control N character in 
the ST$ string is a wild card. It 



Run from Listing 1 



5 HIM NAM 10 >fIX( 10 ) 

20 iNA*<0) = "APPLE CORE" 

21 INA*< 1 ) = "CRAB APPLE" 

22 NAM 2) = "APF'LE&ORANGE" 

23 NAM 3) = "APPLE/ORANGE" 



100 REM FIND ALL OCCURRENCES OF 'APPLE' 

101 NX = 0!ST$ = "APPLE" 

102 «. SEARCH* NA*f0 f10 f3T$f 1 f235> IXfNX ) 

APPLE CORE 
CRAB APPLE 
APPLE&ORANGE 
APPLE/ORANGE 



200 REM FIND 'APPLE' IN NAM ) -> NAM 1 ) COLUMNS 1 

201 NX = 0:ST* = "APPLE" 

202 & 3EARCH<NA*f0f1fST$f1f5fIXfNX) 

APPLE. CORE 



300 REM FIND 'APPLE ORANGE" 

301 MX = 0:ST$ = "APPLE" + CHR* (14) + "ORANGE" 

302 & SEARCH(NA$f0f3f3T*f1i255fIXfNX> 

APPLE&ORANGE 
APPLE/ORANGE 



400 REM FIND 1ST 'ORANGE' 

401 MX = - 1!ST$ = "ORANGE" 

402 & SEARCH<NA*r0f3»5T*»l»235.IZfNX 

APPLE&ORANGE 



490 ST* = "CRAB" 

492 REM DYNAMICALLY ALLOCATE/DEALLOCATE MX 

495 FOR J = 1 TO 2 

500 NX = 0SKX = 

501 & SEARCH<NA*f0f3fST*f1f255fK£»NX) 

502 DIM MXCNXKNX = 

503 & 3EARCH(NA*f0f3i3T*f1,255fMXfNX ) 

504 LIST 490 f 530 : G05UB 2100! GOSUB 3000 
510 4. DEALLOCt MX ) 

520 ST* = "APPLE" 
530 NEXT J 



CRAB APPLE 



490 ST* = "CRAB" 

492 REM DYNAMICALLY ALLOCATE/DEALLOCATE Ki 

495 FOR J = I TO 2 

500 NX = OtKX = 

501 ii SEARCH(NA*f0i3»ST*f1f255fKX»NZ) 

502 DIM MX'. NX) t NX = 

503 & SEARCH* NA*f0f3f3T$f1i255.MX,NX) 

504 LIST 490i530: GOSUB 2100 J GOSUB 3000 
510 & DEALL0C< MX ) 

520 ST* = "APPLE" 
530 NEXT J 



APPLE CORE 
CRAB APPLE 
APPLE&ORANGE 
APPLE/ORANGE 



600 F:EM FIND '£' IN COLUMN 10 

601 NX = OtST* = "E" 

602 I SEARCH(NA*fOf3fST*f10f10fIX.NX) 

APPLE CORE 
CRAB APPLE 
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Listing 2 




REM AMPER-SEARCH DEMO 




1 REM BY ALAN G. HILL 




1000 


G03UB 1000O 




1010 


POKE 32,20 : POKE 33,1?: HOME : VTAB 5: PRINT "00 rOU WANT TO" 
'SPECIFY SEARCH"! PRINT "LIMITSt Y/N )? "J! GET A* SPRINT 


! PRINT 


10 20 


IF A4 < > "Y" THEN 1030 




1030 


VTAB 10. ' CALL - 843: INPUT "LOWER SUBSCRIPT! " if. IF L < OR 
THEN PRINT B*; GOTO 1030 


L > 21 


1040 


VTAB 12*. CALL - 868! INPUT "UPPER SUBSCRIPT! " !H! IF H < OR 
OR H < L THEN PRINT B* ! GOTO 1040 


H > 21 


1050 


VTAB 14! CALL - 863! INPUT "LOWER COLUMN: "iPL! If PL < 1 OR 
5 THEN PRINT B» ! GOTO 1050 


PL > 25 


1060 


VTAB 1&: CALL - 868! INPUT "UPPER COLUMN!" ;PH! If PH < 1 OR 
5 OR PH < PL THEN PRINT B* ! GOTO 1060 


FH > 25 


1065 


VTAB 13: CALL - 868! PRINT "FIRST/ALL?"!: GET Alt PRINT : IF 
-" THEN F% = - 1 


A* = " 


1070 


GOTO 1120 




1080 


. = 0: REM START AT NA*<0 ) 




1090 


H = i: REM SEARCH ALL 




1100 


PL = 1! REM START WITH 1ST COLUMN 




1110 


"H = 2551 REM MAXIMUM COLUMNS 




1115 


-7. = 0: REM FIND ALL 




1120 


POKE 32, 0: POKE 33,3?: VTAB 231 CALL - 863 




1130 


INVERSE ! PRINT "STRING:"*! NORMAL : INPUT " " >ST» 




1140 


IF LEN (ST$) = THEN END 




1150 


HZ = FZ! REM INIT COUNTER 




1160 


REM INVOKE 'AMPER-SEARCH' 




1170 


& SEARCH(NA$,L,H.ST*,PL,PH,IZ,NZ) 




1180 


REM LIST FOUND STRINGS 




1190 


POKE 32,20 : POKE 33,19: HOME 




1200 


IF NX < = THEN PRINT "NONE FOUND": GOTO 1120 




1210 


FOR I = TO NX - 1 




1220 


VTAB 12(1) + i: PRINT NA*'. 17S I ) ) 




1230 


NEXT I 




1240 


GOTO 1120 




10000 


REM HOUSEKEEPING 




10010 


HI MEM! ? * 40?6 t 2 * 256 




10015 


POKE 235,0 




10020 


II* = CHR$ <4> 




10030 


B« = CHR* ( 7 ) 




10040 


PRINT B«"N0MONC,I,O" 




10050 


POKE 1013,76: POKE 1014,0 1 POKE 1015,146: REM SETUP '4' VECTOR AT 




♦3F5 TO JMP $9200 




10060 


TEXT : HOME : VTAB 10: HTAB 12: PRINT " AMPER-SEARCH UEHO" 




10070 


HTAB 19: PRINT "BY" I HTAB 14: PRINT "ALAN G, HIU" 




10080 


PRINT BVBLOAB B. AMPER~SEARCH< 48K >" 




10090 


FOR I = 1 TO 1000. • NEXT I 




101O0 


DIM NA*(22>,IZ<22) 




10110 


1 = 




1O120 


REM INITIALIZE STRING ARRAY 




1O130 


READ NA*< I ) 




10140 


IF NA*(I) = "END" THEN 10160 




10150 


I = I + i: GOTO 10130 




10160 


1 = 1-1 




10170 


HOME 




10180 


FOR K M TO I 




10190 


PRINT K; TAB( 4>iNA»<K) 




10200 


NEXT K 




10210 


RETURN 




11000 


REM SAMPLE STRINGS 




11010 


REM NOTE: THIS DEMO IS SCREEN ORIENTED. DON'T PHI MORE THAN 


22 ITEM 


S IN THE DATA STATEMENT LIST. 




11020 


DATA APPLE II, APPLE 3IDER, APPLE CIDER, AFPLEVENTION. APPLE PI 


.APPLES 


AUCE, APPLE TREE.APFLE ORCHARD 




11030 


DATA APPLE II PLUS, APPLES & ORANGES, APPLE BLOSSOM CANDIED APPLES, AF 


PLE/ORANGE, APPLESOFT, APPLEOD IAN , APFLEVISION 




11040 


DATA APPLE STEM, APPLE CORE, APPLE-A-DAY, APPLE FIE y APPLE PEEL 


.APPLE- 


OF-HY-EYE 





II 



will match any character in its 
corresponding NA$(IJ position. 

2. Any valid variable name may be 
used as a parameter. 

3. OSLsHsmaximum number of 
elements in NA$. Elements of 
NA$ can be null strings. 

4. l£PL^PHs255. A PH>LEN 
(NA$(I)) is allowed and will en- 
sure that the entire NA$|I] string 
is searched. 



5. 1% must be dimensioned large 
enough to hold all matches; i.e. 
DIM I%(N%). Since you don't 
know the number of matches 
before Amper-Search is invoked, 
you have two alteruatives. 1% 
can be dimensioned the same 
size as NA$, thus assuring 
enough space to accommodate a 
complete match. This may 
waste memory or require more 
memory than is available. A sec- 
ond alternative is to first define 
1% as a simple variable before in- 



voking Amper-Search. In this 
special case, Amper-Search will 
return the number of matches 
only. Your program can then 
DIM I%|N%), set N%-0, and 
re-invoke Amper-Search to 
return the subscripts. Its speed 
makes this option practical even 
for large arrays and will conserve 
memory by not allocating unused 
1% elements. 

6. N% should be £ prior to invok- 
ing Amper-Search. Set N% = if 
you want all matches. If N% =0 
upon return, there were no match- 
es. Set N% = - 1 if you only 
want the fhst occurrence of a 
match. In this special case, N% 
will be - 1 if there were no match- 
es, or + 1 if a match were found. 
The subscript of the matching 
NA$ element will be found in 
I%(0|. 

Note 5 described a method for 
allocating the minimum size for 1% 
that is large enough to hold the max- 
imum number of matches. You could 
ask, "What if I use &SEARCH 
iteratively with a different ST$ string 
each time that has more matches than 
1% can hold? Won't that cause a BAD 
SUBSCRIPT ERROR?" Yes it will. 
Ideally, one would like to de-allocate 
1% and re-DIMension it at the new 
minimum size. The CLEAR command 
won't do the job because it will clear all 
variables. Now you should see the 
utility of yet another Amper-library 
routine called &DEALLOC which per- 
forms the needed function. The general 
form is: 

&D[EALLOC] (A,B,N) 

where A,B,N are the named variables of 
the integer and string arrays to be de- 
allocated. 

[ ] bracket optional characters. 
"&D" are required. 

For example: &D(I%) will de-allocate 
thel% integer array, &D(XY$,K%) will 
de-allocate the XY$ string array and the 
K% integer array. 



In order to complete the de- 
allocation process, your program must 
follow the &D|XY$) statement with an 
X = FRE|0) housekeeping statement to 
regain the memory from character 
strings referred to only by the de- 
allocated string array. &DEALLOC 
cannot be used to increase the size of an 
array while preserving the current con- 
tents of the array. 



i I' 



I 'v 
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Now let's look at some simple ex- 
amples created by running the program 
in listing 1. 

Listing 2 is a general BASIC demo 
with which you can experiment to 
learn how Amper-Search can be used. 

Some of the routines in Amper- 
Search can be adapted for use in other 
Amper-library machine language 
routines. In addition to the Apple 
routines described in the July Amper- 
Sort article, the following routines may 
also be useful: 

GNAME retrieves the string or integer 
variable name from the " &" 
parameter list and places it 
in the NAME buffer in your 
machine language program. 
The A-Reg is returned with a 
"$" or "%" character. 

INTE converts the positive ASCII 

variable name in NAME to 
Applesoft's 2-character 



negative ASCII naming con- 
vention for integer variable 
names. If the A-Reg does not 
contain a "%" upon entry, 
the carry flag will be set 
upon return. 

STRING performs the same function 
for string variable names as 
INTE does for integer vari- 
ables. The A-Reg must con- 
tain a "$" upon entry. 

FARRAY will search variable space for 
the array variable name con- 
tained in the NAME buffer. 
If found, its address will be 
returned in the X and Y 
Regs. If not found, the carry 
flag will be set. 

FSIMPL performs the same function 
for simple variables as FAR- 
RAY does for array 
variables. 

&DEALLOC also uses several of the 



above routines. Similar routines reside 
somewhere in the Applesoft inter- 
preter, and if they are known, these 
routines can be adapted. 

Amper-Search was assembled using 
the Microproducts 6 Character Label 
Editor/ Assembler. The Link command 
makes it very easy to put the above 
routines in your subroutine library for 
recall, when needed, by the assembler. 
Anyone desiring a tape cassette con- 
taining the Demo program, the object 
code assembled at $5200, a copy at 
$9200 (all for Applesoft ROM), and the 
source code in Microproducts 6 
Character Label Editor/ Assembler for- 
mat may send $6.00 to me at the above 
address. 



My thanks to Bob Kovacs who 
challenged me to write Amper-Search. 

JMCftO 



9200 48 



Listing 3 




(J**** ********** 
; * 

J AMPER-SEARCH * 






J AND DEALLOCATE* 






Br 


* 




i ALAN 


G. HILL * 

>1 




i COMMERCIAL * 




i RIGHTS * 




} RESERVED * 

; * 
;*************** 






i FEBRUAF 


T * 




1 


L9S0 


* 
* 




)*************** 




; DEFINE ADDRESSES * 




NAPTR 


EQU 


00 DO 




SAPTR 


EQU 


00D2 




JAPTR 


EQU 


00D4 




NPT 


EQU 


00D6 




L 


EQU 


0D8 




H 


EQU 


00 DA 




PL 


EQU 


00 DC 




PH 


EQU 


0ODD 




TEM6X 


EQU 


00DE 




NAPTH 


EQU 


00EO 




CNAFTR 


EQU 


0OE2 




CSAPTR 


EOU 


O0E4 




SAVEY 


EQU 


00E6 




PS 


EQU 


0OE7 




LENNA 


EQU 


0OE8 




LENSA 


EQU 


00E? 




SWITCH 


EQU 


00EA 




SIZE 


EQU 


00EB 




OFFSET 


EQU 


00D2 




Al 


EQU 


00D4 




Z50 


EQU 


0050 




CHRG0T 


EQU 


00B7 




CHRGET 


EQU 


00B1 




C0UT 


EQU 


FDEB 




r 




ROM 


RAM 


GETBYT 


EQU 


E6F8 


; 1EEF 


SYNERR 


EQU 


DEC9 


J 16CC 


FRMNUM 


EQU 


DD67 


i 156A 


GETADR 


EQU 


E752 


i 1F49 


T 


ORG 


9200 






OBJ 


9200 




r 

i PROCESS 4 




BEGIN 


FHA 







9201 


203195 


9204 


68 


9205 


A202 


9207 


CA 


9208 


3053 


920A 


DDA395 


920D 


D0F8 


920F 


8A 


9210 


0A 


9211 


AA 


9212 


20B100 


9215 


F046 


9217 


C928 


9219 


D0F7 


921B 


BDA095 


921E 


48 


92 IF 


BD9F95 


9222 


48 


9223 


60 


9224 


201E94 


9227 


205D94 


922A 


Z07494 


922D 


B034 


922F 


86D0 


9231 


84D1 


9233 


20B100 


9236 


2067DD 


9239 


2052E7 


923C 


A550 


923E 


85D8 


9240 


A551 


9242 


85D9 


9244 


20B100 


9247 


2067DD 


924A 


2052E7 


924D 


A550 


924F 


85DA 


9251 


A551 


9253 


85DB 


9255 


201E94 


9258 


205D94 


925B 


901D 


925D 


205495 


9260 


4CC9DE 



JSR 


SAVEZP 


SAVE ZERO PG 


PLA 






LDX 


**02 




CHRSFN DEX 






BMI 


ERRX 




CMP 


CHRTBL>X 


' S ' OR ' D ' 


BNE 


CHRSFN 


TRY AGAIN 


TXA 






ASL 




TIMES 2 


TAX 






3R02 JSR 


CHRGET 


NEXT CHAR 


BEQ 


ERRX 




CMF 


**28 


( 


BNE 


SR02 




LDA 


LOC+01»X 


JMP TO 


PHA 




ROUTINE 


LDA 


LOC.X 


VIA 


PHA 




RTS 


RTS 






i AMPER-SEARCH 




SEARCH JSR 


GNAME 


GET NAME 


JSR 


STRING 


CONVERT 


JSR 


FARRAY 


FIND NAME 


BCS 


ERRV 




STX 


NAFTR 


NA* 


STY 


NAPTR +01 




JSR 


CHRGET 




JSR 


FRMNUM 




JSR 


GET.ADR 




LDA 


Z50 




STA 


L 


LOWER SUBSC 


LDA 


Z50+01 




STA 


L+01 




JSR 


CHRGET 




JSR 


FRMNUM 




JSR 


GETADR 




LDA 


Z50 




STA 


H 


UPPER SUBSC 


LDA 


Z50+0 1 




STA 


H+01 




JSR 


GNAME 




JSR 


STRING 




BCC 


SR20 




i ERROR * 






ERRX JSR 


RSZP 




JMP 


SYNERR 




i VARIABLE 


NOT FOUND 


MSG * 



9263 A200 
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9265 


BDA595 SR18 LDA MSG1.X ; 


ERROR M3G 


9318 


AOOO NEXT LDY *$00 




9268 


C9C0 


CMP *$C0 i 


e DELIMITER 


931A 


B1D0 


LDA (NAFTR).Y 




926A 


FOFl 


BEQ ERRX 




931C 


F04A 


BEQ NEXTNA i 


NULL 


926C 


0980 


ORA **B0 




931E 


85E8 


STA LENNA * 


LEN( NA$< ) ) 


926E 


20EDFD 


JSR COUT 




9320 


C8 


INY 




9271 


EOOC 


CPX »$0C 




9321 


B1D0 


LDA < NAPTR >,Y 




9273 


DO 2 


8NE 3R19 




9323 


85E2 


STA CNAPTR 




9275 


A219 


LDX #-*19 




9325 


ce 


INY 




9277 


E8 SR19 INX 




9326 


B1D0 


LDA < NAPTR )>Y 




9278 


DOES 


BNE SR13 ! 


ALWAYS 


9328 


85E3 


STA CNAPTR+01 












932A 


A4DC 


LDY PL 




927A 


20AE94 SR20 JSR FSIMPL ! 


FIND NAME 


932C 


88 


DEY 




927D 


B0E4 


BCS ERRY 




932D 


C4E8 


CPY LENNA 




927F 


B6D2 


STX SAPTR ! 


ST* 


932F 


B037 


BCS NEXTNA 




9281 


84D3 


STY SAPTR+01 




9331 


A900 NXTNAC LDA #$00 




9283 


20B100 


JSR CHRGET 




9333 


85E7 


STA PS i 


CURRENT POSITM 


9236 


20F8E6 


JSR GETBYT 




9335 


85EA 


STA SWITCH 




9289 


B6DC 


STX PL ; 


FIRST POSITIOH 


9337 


B1E2 CONT LDA (CNAPTR),Y 




928? 


20B10O 


JSR CHRGET 




9339 


C8 


INY 




928E 


20F8E6 


JSR GETBYT 




933A 


84E6 


STY SAVEY 




9291 


86DD 


STX PH ; 


LAST POSITION 


933C 


A4E7 


LDY PS 




9293 


201E94 


JSR GNAME 




933E 


D1E4 


CMP ( CSAPTR ),Y 




9296 


203 D94 


JSR INTE 




9340 


F006 


BEQ SR25 i 


POSSIBLE MA1CH 


9299 


B0C2 


BCS ERRX 




9342 


B1E4 


LDA ( CSAPTR )rY 




929B 


207494 


JSR FARRAY 




9344 


C90E 


CMP **0E ; 


CNTL N 


929E 


9009 


BCC SR21 




9346 


D011 


BNE SR26 ; 


NOT WILD CARt 


92A0 


20AE94 


JSR FSIMPL 












92A3 


BOBE 


BCS ERRV 








POSSIBLE MATCH * 




92A5 


A9FF 


LDA **FF 












92A7 


85EB 


STA SIZE i 


* OF HITS ONLt 


9348 


A9FF SR25 LDA **FF 




92A9 


86D4 SR21 STX JAPTR > 


1% 


934A 


85EA 


STA SWITCH 




92AB 


84D5 


STY JAPTR+01 




934C 


C8 


INY 




92AD 


201E94 


JSR GNAME 




934 D 


C4E9 


CPY LENSA i 


AT END? 


92B0 


203D94 


JSR INTE 




934F 


F038 


BEQ MATCH ! 


IT'S A MATCH! 


92B3 


B0A8 


BCS ERRX 




9351 


E6E7 


INC PS 




92BS 


20AE94 


JSR FSIMPL 




9353 


F013 


BEG NEXTNA 




92B8 


B0A9 


BCS ERRV 




9355 


A4E6 


LDY SAVEY 




92BA 


86D6 


STX NPT i 


NX 


9357 


DODE 


BNE CONT ! 


ALWAYS 


92BC 


84D7 


STY NPT+01 




9359 


A4E6 SR26 LDY SAVEY 




92BE 


2OB100 


JSR CHRGET 




935B 


24EA 


BIT SWITCH 




92C1 


D09A 


BNE ERRX 




935D 


1001 


BPL 3R2S 








FINISHED PARAMETERS 


* 


935F 


38 


DEY 












9360 


C4E8 SR28 CPY LENNA i 


AT END? 






SET UP POINTERS * 




9362 


BO 04 


BCS NEXTNA ; 


BR YES 










9364 


C4DD 


CPY PH t 


LAST POSITION 


92C3 


18 


CLC 




9366 


90 C 9 


BCC NXTNAC i 


NEXT CHAR 


92C4 


A5D4 


LDA JAPTR 




9368 


18 NEXTNA CLC f 


NEXT NA*< I ) 


92C6 


6907 


ADC *$07 




9369 


A5D0 


LDA NAPTR 




92C8 


B5D4 


STA JAPTR > 


IX 


936B 


6903 


ADC #«0 3 




92CA 


A5B5 


LDA JAPTR+01 




936D 


H5B0 


STA NAPTR 




92CC 


6900 


ADC *$00 




936F 


A5D1 


LDA NAPTR+01 




92CE 


85D5 


STA JAPTR+01 




9371 


6900 


ADC #*00 




92D0 


A5DA 


LDA H 




9373 


EI5D1 


STA NAPTR+01 




92D2 


8550 


STA 250 




9375 


E.6D8 


INC L 




92D4 


A5DB 


LDA H+01 




9377 


D002 


BNE SR33 




92D6 


8551 


STA 250+01 




9379 


E6D9 


INC L+01 




92D8 


A903 


LDA *$03 




937B 


318 SR33 SEC 




92DA 


8554 


STA $54 




937C 


CiSEO 


LDA NAFTH 




92DC 


A900 


LDA **00 




937E 


E5D0 


SBC NAPTR 




92DE 
92E0 
92E3 
92E5 


8555 
20E594 
86E0 
84E1 


STA $55 
JSR MPLY 
STX NAFTH i 
STY NAPTH+01 


NA*< H t 


9380 
9382 
9384 
9386 


A5E1 
ESDI 
B092 
4C1A94 


LDA NAPTH+01 
SBC NAPTR+01 
BCS NEXT 
JMP RETURN ! 


AT NA*(H) 


92E7 
92E9 


A5D8 
8550 


LDA L 
STA Z50 








FOUND A MATCH * 




92EB 
92ED 
92EF 
92F2 


A5B9 
8551 
20E594 
86D0 


LDA L+01 
STA Z50+01 
JSR MPLY 
STX NAPTR i 


NAJ< L ) 


9389 
938B 
938D 


24EB ^ 

3018 

AOOO 


1ATCH BIT SIZE 

BMI SZONLY ; 
LDY **00 


* MATCHES ONLY 


92F4 


84D1 


STY NAPTR+01 




938F 
9391 


A5D9 
91D4 


LDA L+01 ; 
STA < JAPTR ),Y 


SUBSCRIPT 


92F6 
92F7 
92F9 
92FB 
92FD 
92FF 
9301 
9303 
9305 
9307 
9309 


18 

A5D2 

6902 

85D2 

A5D3 

690 

85D3 

AOOO 

B1D2 

D003 

4C1A94 


CLC 

LDA SAPTR : 

ADC ♦»02 

STA SAPTR ! 

LDA SAPTR+01 

ADC *«00 

STA SAPTR+01 

LDY #*00 

LDA ( SAPTR )»Y 

BNE SR22 

JMP RETURN ) 


ST$ 
NULL 


9393 
9394 
9396 
9398 
9399 
939B 
939B 
939F 
93A1 
93A3 
93A5 
93A7 


ca 

A5D8 
91D4 

IB 

a:sb4 

6902 

a:5D4 

A5D5 

6900 

85D5 

A003 £ 

18 


INY 
LDA L 

STA < JAPTR >>Y 
CLC 

LDA JAPTR 
ADC **02 
STA JAFTR 
LDA JAPTR+01 
ADC MOO 
STA JAPTR+01 
>ZONLY LDY **03 
CLC 




930C 


85E9 ! 


3R22 STA LENSA 






930E 
930F 


C8 
B1D2 


INY 

LDA ( SAPTR )>Y! 


SAVE 


93A8 
93AA 


B1D6 
6901 


LDA < NPT ).Y 

ADC *«oi ; 


NZ-NZ+,1 


9311 
9313 
9314 
9316 


85E4 
C8 

B1D2 
B5E5 


STA CSAFTR i 

INY 

LDA ( SAPTR >,Y 

STA CSAPTR+01 


' ADDRESS 


93AC 
93AE 
93AF 
93B1 
93B3 


91D6 
BE! 

B1D6 
30 07 
6900 


STA (NPT ).Y 

DEY 

LDA (NPT).Y 

BMI 0NLY1 > 

ADC **00 


1ST OCCURRENCE 






START SEARCH * 




93B5 
93B7 


91D6 
4C6893 


STA <NPT )tY 
JMP NEXTNA 


(continued) 
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9453 


9DAF95 


GR14 


STA 


NAME.X 




93BA 


A900 


0NLY1 


LDA 


♦ $00 




9456 


CA 




DEX 






93BC 


91D6 




STA 


(NFT ),Y 




9457 


10F5 




BFL 


GR12 




93BE 


C8 




INY 






9459 


18 




CLC 


i 


CLEAR ERR 


93BF 


A901 




LDA 


4*01 i 


NX=1 


945A 


60 




RTS 






93C1 


9106 


i 


STA 


<NPT),Y 




945B 
945C 


38 
60 


ERRI 


SEC 
RTS 


i 


SET ERR 






; fini 


SHED 


AMPER-SEARCH * 


















t 












i STRING NAME * 




93C3 


4C1A94 




J HP 


RETURN 




















} 








945D 


C924 


STRING 


CMP 


4*24 i 


* 


93C6 


4C5D92 


EKRXX 


JMP 


ERRX 




945F 


D011 




BNE 


ERRS 




93C9 


4C6392 


ERRVX 
r 


JMF 


ERRV 




9461 
9464 


8DB195 
A980 




STA 
LDA 


NAME+02 
4*80 








i BEALL0CA1 


E * 




9466 


E001 




CPX 


4*01 ; 


SAVE 






i 








9468 


F003 




BEG 


GR1S i 


NAME 


93CC 


201E94 


DEALLO 


JSR 


GNAME J 


GET NAME 


946A 


0DB095 




ORA 


NAME+01 




93CF 


C924 




CMP 


4*24 i 


* 


946D 


8DB095 


GR18 


STA 


NAME+01 




93D1 


F005 




BEH 


RE50 




9470 


18 




CLC 






93D3 


203D94 




JSR 


INTE ; 


X 


9471 


60 




RTS 






93B6 


D003 




BNE 


RE55 t 


ALWAYS 


9472 


38 


ERRS 


SEC 


T 


SET ERR i 


93D8 


205B94 


RE50 


JSR 


STRING 




9473 


60 




RTS 






93DB 


B0E9 


RE53 


BCS 


ERRXX 
















93DD 


207494 




JSR 


FARRAY 








i FIND 


ARRAY NAME * 




93E0 


B0E7 




BCS 


ERRVX 








i IN VARIABLE SPACE * 




93E2 


B6D0 




STX 


NAF'TR ( 


NA* 














93E4 


S4B1 




STY 


NAPTR+01 




9474 


A56B 


FARRAY 


LDA 


*6B 




93E6 


A002 




LDY 


4*92 




9476 


85DE 




STA 


TEM6X 




93E8 


B1D0 




LDA 


(NAPTR)rY 




9478 


A56C 




LDA 


*6C 




93EA 


85D2 




STA 


OFFSET 




947A 


85DF 




STA 


TEM6X+0I 




93EC 


C8 




INY 






947C 


AOOO 


F02 


LDY 


4*00 




93ED 


B1B0 




LDA 


(NAPTR).Y 




947E 


BIDE 




LDA 


< TEM6X ),Y 




93EF 


85B3 




STA 


OFFSET+01 




9480 


CDAF95 




CMP 


NAME i 


1ST CHAR 


93F1 


18 




CLC 






9483 


D008 




BNE 


F04 




93F2 


A5D2 




LDA 


OFFSET 




9485 


C8 




INY 






93F4 


65D0 




ADC 


NAPTR 




9486 


BIDE 




LDA 


< TEM6X),Y 




93F6 


B5D4 




STA 


Al 




9488 


CDB095 




CMP 


NAME+01 ! 


2ND CHAR 


93F8 


A5D3 




LDA 


OFFSET+01 




948B 


F01B 




BEQ 


FOUND 




93FA 


65D1 




ADC 


NAFTR+01 




948D 


18 


F04 


CLC 


f 


LOOK AT 


93FC 


85D5 




STA 


Al+01 




948E 


A002 




LDY 


4*02 ; 


NEXT NAME 


93FE 


201495 




JSR 


MOVE i 


MOVE-VAFilABLES 


9490 


BIDE 




LDA 


( TEM6X)»Y 




9401 


38 




SEC 






9492 


65DE 




ADC 


TEM6X 




9*02 


A56D 




LDA 


*6D 




9494 


48 




PHA 






9+04 


E502 




SBC 


OFFSET 




9495 


C8 




INY 






9404 


B56D 




STA 


*6B 




9496 


BIDE 




LDA 


( TEM6X),Y 




9408 


A56E 




LDA 


*6E 




9498 


65DF 




ADC 


TEM6X+01 




940A 


E5B3 




SBC 


OFFSET+01 




949A 


85DF 




STA 


TEM6X+01 




940C 


B56E 




STA 


*6E 




949C 


68 




PLA 






940E 


20B70O 




JSR 


CHRGOT 




949D 


85DE 




STA 


TEM6X 




9411 


C929 




CMP 


4*29 i 


> 


949F 


C56D 




CMP 


*6D 




9413 


D0B7 




BNE 


DEALLO > 


NEXT WAR 


94A1 


A5DF 




LDA 


TEM6X+01 




9415 


20B100 




JSR 


CHRGET 




94A3 


E56E 




SBC 


*6E 




9418 


DOAC 




BNE 


ERRXX 




94A5 
94A7 


90D5 
60 




BCC 
RTS 


F02 i 

i 


TRY NEXT ONE 
NOT FOUND 






i FINISHES 


* 








f 




















94A8 


A6DE 


FOUND 


LDX 


TEM6X i 


RTN WITH 


941A 


205495 


RETURN 


JSR 


RSZP i 


RESTORE PAGEO 


94AA 


A4DF 




LDY 


TEM6X+01 i 


ADDRESS 


94 ID 


60 


J 


RTS 






94AC 
94AD 


18 
60 




CLC 
RTS 










;************** 




















i SUBROUTINES * 








; FIND 


SIMFLE NAME * 








j************** 








i IN VARIABLE SPACE * 








i 

i GET 


VARIABLE NAME * 




94AE 


A569 


FSIMPL 


LDA 


*o? 




94 IE 


A2O0 


GNAME 


LDX 


4*00 




94B0 


85DE 




STA 


TEM6X 




9420 


20B100 


GR01 


JSR 


CHRGET 




94B2 


A56A 




LDA 


*6A 




9423 


C92C 




CMP 


4*2C i 


f 


94B4 


85DF 




STA 


TEHdX+OJ. 




9425 


F011 




BEG 


GR03 




94B6 


AOOO 


F32 


LDY 


4*00 




9427 


C929 




CMP 


4*29 ; 


) 


94B8 


BIDE 




LDA 


( TEM6X ),Y 




9429 


FOOD 




BEG 


GR03 




94BA 


CDAF95 




CMP 


NAME i 


1ST CHAR 


942B 


9DAF95 




STA 


NAMErX r 


SAVE NAME 


94BD 


DO 08 




BNE 


FS4 




942E 


E8 




INX 






94BF 


C8 




INY 






942F 


E010 




CPX 


4*10 ; 


16 IS ENOUGH 


9 4 CO 


BIDE 




LDA 


(TEM6X )> Y 




9431 


DO ED 




BNE 


GRO 1 




94C2 


CDB095 




CMP 


NAME+01 i 


2ND CHAR 


9433 


68 




PLA 






94 C5 


F018 




BEG 


FOUNDS 




9434 


68 




PLA 


f 


FOP STACK 


94C7 


18 


FS4 


CLC 




TRY NEXT ONE 


9435 


4C5D92 




JMP 


ERRX 




94C8 


A5DE 




LDA 


TEM6X 




9438 


CA 


GR03 


DEX 






94CA 


6907 




ADC 


4*07 ) 


DISPLACEMENT 


9439 


BDAF95 




LDA 


NAMEfX 1 


$ OR 7. 


94CC 


85DE 




STA 


TEM6X 




943C 


60 




RTS 






94CE 
94D0 


A5DF 
6900 




LDA 
ADC 


TEM6X+01 
4*00 








J INTEGER 


NAME * 




94D2 


85DF 




STA 


TEM6X+01 
















94D4 


A5DE 




LDA 


TEM6X 




943D 


C925 


INTE 


CMP 


4*25 i 


7. 


94D6 


C56D 




CMP 


*6D i 


AT END- 


943F 


D01A 




BNE 


ERRI f 


NOT X 


94D8 


A5DF 




LDA 


TEM6X+01 




9441 


8DB195 




STA 


NAME+02 r 


SAVE 


94DA 


E56E 




SBC 


*6E 




9444 


E001 




CPX 


4*01 i 


NAME 


94DC 


90D8 




BCC 


FS2 i 


NEXT ONE 


9446 


D004 




BNE 


GR10 i 


IN 


94DE 


60 




RTS 


i 


NOT FOUND 


9448 


A9S0 




LDA 


4*80 i 


APPLESOFT 






f 








944A 


D007 




BNE 


GR14 i 


FORMAT 


94DF 


A6DE 


FOUNDS 


LDX 


TEM6X i 


.RTN WITH 


944C 


A201 


GR10 


LDX 


4*01 




94E1 


A4BF 




LDY 


TEM6X+01 > 


ADDRESS 


94 4E 


A980 


GR12 


LDA 


4*80 




94E3 


18 




CLC 






9450 


1DAF95 




ORA 


NAMEfX 




94E4 


60 




RTS 
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B 



V+E5 


18 


?+E6 


ft5D0 


?+E8 


6907 


94EA 


8552 


94EC 


A5D1 


?4EE 


6900 



74F0 85 



94F2 


AO10 


94F4 


A550 


9+F6 


4A 


94F7 


900 C 


94F9 


18 


94FA 


A2FE 


94FC 


B554 


94FE 


7556 


9500 


9554 


9502 


E8 


9503 


D0F7 


9505 


A203 


9507 


7650 


9509 


CA 


950A 


10FB 


950C 


88 


950D 


DOES 


950F 


A650 


9511 


A451 


9513 


60 


9514 


AOOO 


9516 


B1II4 


9518 


91D0 


951A 


E6D0 


951C 


D002 


951E 


E6D1 


9520 


A5D4 


9522 


C56B 


9524 


A5D5 


9526 


E56E 


9528 


E6B4 


952A 


D002 


952C 


E6D5 


952E 


90E6 


9530 


60 



i MULTIPLY 


ROUTINE * 




MPLY 


CLC 








LDA 


NAPTR 






ADC 


*$07 






3TA 


*52 






LDA 


NAPTR+01 






ADC 


**00 






STA 


*53 




i FROM 'RED' MANUAL * 






LDY 


#$1Q 




MUL2 


LDA 
LSR 


»50 






BCC 


MUL4 






CLC 








LDX 


#*FE 




MUL3 


LDA 


*54»X 






ADC 


♦ 56.X 






STA 


t54,X 






INX 








BNE 


MUL3 




MUL4 


LDX 


♦ tO 3 




MUL5 


ROR 
LEX 


*50rX 






BF'L 


MUL5 






BEY 








BNE 


MUL2 






LDX 


Z50 






LDY 


Z50+01 






RTS 






i NOUE 


VARIABLES * 




MOVE 


LDY 


*$00 




MV01 


LDA 


( Al ).Y 






STA 


(NAPTR), Y 






INC 


NAFTR 






BNE 


NXTA1 






INC 


NAPTR+01 




NXTA1 


LDA 


Al 






CMP 


*6D 






LDA 


Al+01 






SBC 


*6E 






INC 


Al 






BNE 


MV02 






INC 


Al+01 




MV02 


BCC 
RTS 


MV01 (NEXT 


ONE 


) SAVE 


ZERO 


* 




f PAGE 


SPACE * 





9531 


A2O0 


9533 


B5D0 


95215 


9DD095 


9528 


E8 


9539 


E020 


953B 


DOFA 


953D 


A200 


953F 


B550 


9541 


9DCA95 


9544 


E8 


9545 


E006 


9547 


D0F6 


9549 


A20F 


954B 


A920 


954D 


9DAF95 


9550 


CA 


9551 


10FA 


9553 


60 



9554 
9556 
9559 
955H 
955C 
955E 
9560 
9562 
9565 
9567 
9568 
956A 
956C 



956D 
9579 
9585 
9597 
959F 
95A1 
95A3 
95A4 
95A5 
95A6 
95AF 
95BF 
95C0 
95C9 
95CA 
95D0 



A200 

BDD095 

95D0 

E8 

E020 

D0F6 

A200 

BDCA95 

9550 

E8 

E006 

D0F6 

60 



SAVEZP LDX **00 

SV02 LDA NAPTR, X 
STA ZPSV,X 
INX 

CPX *$20 
BNE SV02 
LDX **00 

SV04 LDA $50, X 
STA SV50,X 
INX 

CPX *»06 
BNE SV04 
LDX **0F 
LDA *$20 

CLEAR STA NAME.X 
HEX 

BPL CLEAR 
RTS 

RESTORE ZERO * 
PAGE SPACE * 

RSZP LDX *$0 
RS02 LDA ZPSV,X 

STA NAPTR, X 

INX 

CPX *$20 

BNE RS02 

LDX *$00 
RS04 LDA SV50,X 

STA *50,X 

INX 

CPX **06 

BNE RS04 

RTS 

DATA STORAGE * 



SAVE 

32 SPOTS 



ALSO *50.*55 



CLEAR 
NAME AREA 



C1CDD0C5D2ADD3C5C1D2C3C8 

C1CCC1CEA0C7AEA0C8C9CCCC 

C3CFCDCDC5D2C3C9C1CCA0D2C9C7C8H4H3A0 

D2C5D3C5D2D6C5C4 

CB93 LOC DFD CB93 i 

2392 DFD 2392 i 

44 CHRTBL DFD 44 ; 

53 DFD 53 i 

8D MSG1 DFD 8D 

D6C1D2C9C1C2CCC5A0 

AOAOAOAOAOAOAOAOAOAOAOAOAOAOAOAO 

BD DFD 80 

CECFD4A0C6CFD5CEC4 

CO 



DEALLOC-1 

SEARCH-1 

D 

S 



AOAOAOAOAOAO 
AO 



DFD 



-ZPSV DFD 



i *26 SPACES 




EDIT 6502 



T.M. LJK 



Pass Assembler, Disassembler, and Editor Single Load Program 

DOS 3.3., 40/80 Columns, for Apple II or Apple II Plus* 



A MUST FOR THE MACHINE LANGUAGE PROGRAMMER. Edit 6502* is a two pass Assem- 
bler, Disassembler and text editor for the Apple computer. It is a single load program 
that only occupies 7K of memory. You can move freely between assembling and disas- 
sembling. Editing is both character and line orientated, the two pass disassemblies 
create editable source files. The program is so written so as to encompass combined 
disassemblies of 6502 Code, ASCII text, hex data and Sweet 16 coete. Edit 6502 makes the 
user feel he has never left the environment of basic. It encompasses a large number of 
pseudo opcodes, allows linked assemblies, software stacking (single and multiple 
page) and complete control of printer (paganation and tab setting). User is free to 
move source, object and symbol table anywhere in memory. Requirements: 48K of 
RAM, and ONE DISK DRIVE. Optional use of 80 column M&R board, or lower case avai !a- 
ble with Paymar Lower Case Generator. 

TAKE A LOOK AT JUST SOME OF THE EDITING COMMAND FEATURES. Insert at line # n Delete a character 
Insert a character Delete a line # n List line # nl, n2 to line # n3 Change line # nl to n2 "string!" Seaich 
line » nl to n2 "stringl". 

UK Enterprises Inc. P.O. Box 10827 St. Louis, MO 63129 (314)846-6124 

'Edit 6502 T.M. ol UK Ent. Inc. — 'Apple T.M. ol Apple Computer Inc. 



LOOK AT THESE KEY BOARD FUNCTIONS: Copy to theend of line and 
exit: Go to the beginning ol the line: abort operation: delete a 
character at cursor location: go to end of line: find character 
after cursor location: non destructive backspace: insert a 
character at cursor location: shift lock: shift release: forward 
copy: delete line number: prefix special print characters. Com- 
plete cursor control: home and clear, right, left down up. Scroll a 
line at a time. Never type a line number again. 

All this and much much more — Send for FREE Information. 
Introductory Price $50.00. 



wmttmtXA. 



ys; 



COMPUTER BASED SOFTWARE 



ENTERPRISES 
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DATA CAPTURE 4.0 

The most advanced and easiest to use telecommunications program for use 
with the MICROMODEM II® or the Apple COMMUNICATIONS CARD® 



Q. Will DATA CAPTURE 4.0 work with my Communica- 
tions Card® and a modem? 

A. it makes using the Comm. Card almost as '"easy as using 
the Micromodem II.. 

Q. Oo I need an extra editor to prepare text for transmis- 
sion to another computer? 

A. No. DATA CAPTURE 4.0 gives you control of tie text 
buffer. You can use DATA CAPTURE 4.0 tocreate text. 

Q. Can I edit the text t have prepared? 

A. Yes, You can insert lines or delete any lines from trie text. 

Q. How about text (have captured. Cant edit that? 

A. As easily as the text you have prepared yourself. Y ou can 
delete any lines you don't want to print or Save to a dsk file. 
You can also insert lines into the text. 

Q. Just how much text can I capture with DATA 
CAPTURE 4.0? 

A. If the system with which you are communicating accepts a 
stop character, most use a Control S, you can capture an 
unlimited amount of text. 

Q. How does that work? And do I have to keep an eye on 
how much t have already captured? 

A. When the text buffer Is full the stop character is output to 
the other system. Then DATA CAPTURE 4.0 writes: what 
has been captured up to that point to a disk file. This is 
done automatically. 

Q. Then what happens? 

A. Control is returned to you and you can send the stan 
character to the other system. This generally requires 
pressing any key, the RETURN key or a Control Q. 

Q. Are upper and lower case supported if I have a Lower 
Case Adapter? 

A Yes. if you don't have the adapter an upper case only 
version is also provided on the diskette. 

Q. Do I need to have my printer card or Micromodem IP* 
or Communications Caret® in any special slot? 

A. No. All this is taken care of when you first run a short 
program to configure DATA CAPTURE 4.0 to your system. 
Then you don't have to be concerned with it again, f you 
move your cards around later you can reconfigure DATA 
CAPTURE 4.0. 

Q. Do I have to build a file on the other system to get it 
sent to my Apple? 

A. No. If the other system can list it you can capture it. 

Q. How easy is it to transmit text or data to another 
system? 

A. You can load the text or data into DATA CAPTURl: 4.0 
from the disk and transmit it. Or you can transmit what you 
have typed into DATA CAPTURE 4.0. 

Q. How can I be sura the other system receives what I 
send it? 

A. If the other system works in Full Duplex, it 'echoes' what 
you send it, then DATA CAPTURE 4.0 adjusts its serding 
speed to the other system and won't send the next charac- 
ter until it is sure the present one has been received We 
call that Dynamic Sending Speed Adjustment". 

Q. What if the other system works only in Half Duple*. 

A. A different sending routine is provided for use with Half 

Duplex systems. 
a. What if I want to transmit a program to the other 

system? 
A. No problem. You make the program into a text file w th a 

program that is provided with DATA CAPTURE 4.0, load it 

into DATA CAPTURE 4.0 and transmit it. 



Q. 

A. 



Q 

A 



A 



Q. 

A. 



What type files can I read and save with DATA 
CAPTURE 4.0? 

Any Apple DOS sequential text file. You can create and 
edit EXEC files, send or receive VISCIALC© data files, 
send or receive text files created with any editor that uses 
text files. 

Can I leave DATA CAPTURE 4.0 running on my Apple 
at home and use it from another system? 

Yes. If you are using the Micromodem II® you can call 
DATA CAPTURE CO from another system. This is handy if 
you are at work and want to transmit something to your 
unattended Apple at home. 

Where can P buy DATA CAPTURE 4.0? 

Your local Apple dealer. It he doesn't have it ask him to 
order it. Or if you can't wait order it directly from Southeast- 
em Software. The price is $65.00. To order the Dan 
Paymar Lower Case Adapter add $64.95 and include the 
serial number of your Apple. 

If I order it directly how can i pay for it? 

We accept Master Charge, Visa or your personal check. 
You will get your order shipped within 3 working days of 
when we receive it no matter how you pay for it. Send your 
order to us at the address shown or call either of the 
numbers in this advertisement. You can calf anytime of 
day, evening or Saturdays. 

1 bought DATA CAPTURE 3.0 and DATA CAPTURE 4.0 
sounds so good I want this version. What do I do to 
upgrade? 

Send us your onginal DATA CAPTURE 3.0 diskette and 
documentation, the $35.00 price difference and $2.50 for 
postage and handling. We will send you DATA CAPTURE 
4,0 within 3 working days of receiving your order. 

What kind of support can I expect after I buy It? 

If you have bought from Southeastern Software in the past 
you know we are always ready to answer any questions 
about our products or how to use them. 



Requires DISK IP*, Applesoft IP' and 48K of Memory 

DATA CAPTURE 4.0© 

Copyright© 1980-Southeastern Software 

* Apple*. Apple It Plus», Disk liot and APPLESOFT IK» are trademarks of Apple 
Computet Company. 

* Micromodem lr*> is a Iradems* of O.C. Hayes Associates, Inc. 

* Vafcate©<topyri8M by Software Arts, Inc. 



We welcome your persons! 
check. We also accept Visa and Master Charge. 

Southeastern Software 



Dept. MK 

6414 Derbyshire Drive • New Orleans, LA 701 26 

504/246-8438 504/246-7937 
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Memory Expansion 
for the Superboard 



A less expensive way to add 
memory to the Superboard using 
the OSI 527 memory expansion 
board. 



Fred Boness 

11703 60th St. 

Kenosha, Wisconsin 53142 



The greatest disadvantage of owning a 
single board computer is its limited 
memory. The Superboard has space for 
only 8K of memory, although Ohio 
Scientific offers the 610 expansion 
board, which can add 24K to the Super- 
board. However, a 610 with only 8K of 
memory costs more than the Super- 
board itself. There is more on the 610 
than memory, like a floppy disk con- 
troller, but all I want is a little more 
memory. 

OSI offers a variety of memory 
boards for their 48-line bus. Adapting 
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Figure 1: Plnouts for the 40-pin socket 


and corresponding bus (Bxx) lines. 



one of these to the Superboard means 
finding the necessary address, data, and 
control signals on the Superboard' s 
40-pin expansion socket, and matching 
them to the 48-line bus. Fortunately, 
OSI has designed a simple and straight- 
forward system. Figure 1 shows the ex- 
pansion socket and corresponding bus 
lines. Only 27 lines are used. Note that 
+ 5 volts is not available at the expan- 
sion socket. The user's manual for the 
Superboard includes a complete 
description of the 48-line bus. 

Building the 527 

I decided to use the OSI 527 
memory board because it is the most 
like the 610. It is a 24K board which 
uses 2114 chips. One of the nice things 
OSI does for experimenters is to sell 
bare printed circuit boards for many of 
its products. (OSI sells a fully 
populated 527 as a.CM-9.) 

Most of the control and memory 
decoding logic functions are shown in 
figure 2. The six high address lines are 
decoded by four 74LS138 three-to- 



eight-line decoders. Jumpers Wl, W2, 
and W3 at F9 determine the starting ad- 
dresses of three independent 8K blocks 
of memory on 8K boundaries. No 
changes are made here or at W4, which 
selects the memory management op- 
tion. Parts C10, Cll, and SW11 are 
also for memory management and will 
not be needed. 

C9, D9, and E9 select pairs of 
2114's beginning at Al and Bl with the 
active low chip enable lines CEO to 
CE23. , 

F10 and Ell are 74LS04 hex in- 
verters used as address line buffers. 
There are jumpers across each inverter 
that must be cut before the sockets for 
the 74LS04's are soldered in place. 
These jumpers are not shown on the 
schematics provided by OSI. Jumper 
W5 at D10 must be changed in two 
places to buffer address line A6. 

While the Superboard documenta- 
tion uses the name 02 throughout, the 
48-line bus has both 02, B39, and 
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02VMA, B42. Use 02VMA for this 
board. VMA is actually a 6800 signal, 
Valid Memory Address. 

The data direction signal, DD, is 
generated by the memory board and 
controls the direction of the two 8T26 
bus driver/receivers on the board and 
two 8T28 bus driver/receivers on the 
Superboard. The 8T28's are the only 
extra parts needed by the Superboard. 
They are placed in the sockets between 
the expansion connecter and the 6502. 

I considered several ways of posi- 
tioning the memory board. I wanted it 
to be accessible for servicing and conve- 
nient in use. It now sits behind the 
keyboard on nylon standoffs, compo- 
nent side up, with the bus on -he left 
and r. 40-conducter ribbon cable run- 
ning under the board to the expansion 
socket. 



There is a provision in the corner of 
the 527 board to bring in power and 
ground. This makes it easy to power 
the memory board with a short jumper 
from the fuse on the Superboard. 
Ground is to a wide trace near the fuse. 



The ribbon cable can be soldered in- 
to the plated-through holes intended 
for Molex connecters. Bending hairpins 
in the tinned wire ends will help since 
these holes are large. All the wires were 
first threaded through the holes and 
checked for correct connection. Then 
the assembly was checked for fit on the 
Superboard before the wires were cut to 
length and soldered, 

Testing 

The Superboard does its own 
memory test and I used that for the first 
sign of success. What I got was the first 
indication of failure. Further testing 
using POKE and PEEK showed that no 
part of the 4K on the board was 
working. 

It was several days later that I found 
the last of seven trace bridges on the 
board. One such bridge had been 
repaired by OSI. Perseverance was 
rewarded with the simple line "11519 
BYTES FREE". 

Conclusion 

I never liked the idea that the Super- 
board was a "weak sister" of limited 
capability. Now it looks as though any 
board offered for OSI's main line of 
computers can be adapted to the Super- 
board. How would you like 16 lines of 
analog I/O or a Votrax? With a little ex- 
tra work you could add a backplane. , 

Take your choice. 

jMCRO 
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Figure 2: Decoding of central and six high address lines. 





__ 2< J_ a 





RO BO 


D ° A10 „, 
D3 B3 


R3 


Rl Bl 


Dl 


D2 B2 


R2 



5 DO 
7 02 
9 D4 



-11 D6 



Figure 3: Buffering of data and low 
address line. 
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p Horizontal Screen Scrolling 

On the CBMIPET 



Horizontal scrolling is a 
convenient method of displaying 
graphic functions that are too 
wide to fit on a PET screen. 
Using only the standard 
character set, a dramatic 
increase in resolution is 
possible. 



John E. Girard 
676 Alma St. #202 
Oakland, California 94610 



Long ago I stopped complaining about 
PET graphic resolution. In most cases it 
is adequate, and when it isn't adequate, 
there are always the lines (8 per eel]), 
quarter-boxes and scroll plotting. 
That's right... scroll plotting. If I have 
left you in the dark, then consider this: 
If a graph, for example, is cramped and 
unreadable, then scale it much larger 
and let it roll past you, like a program 
listing. The only problem is one of 
orientation. We expect events to occur 
from side to side; the built-in scroll 
feature causes them to occur from 
down to up at a 90 degree rotation! I 
chose to solve this problem. 

The result was a simple machine 
language program which moves the 
contents of the screen, 1 column to the 
left, whenever called by SYS 826. The 
program owes its brevity to the use of 
these "extended ASCII" cursor move- 
ment characters. 



ASCII Value 


Function 


$13 


cursor home 


$1D 


cursor right 


$14 


cursor delete 


SOD 


carriage return/line feed 



I 



The PET routine, called through $FFD2, 
prints the ASCII character of the 
accumulator value at current cursor 
position. 



1 00 
110 

126 
130 
140 
150 
1 60 
170 
18© 
199 

200 

210 
220 
230 
240 

250 
260 
270 
280 
290 

:-:00 
310 
320 
330 
340 
350 
360 
370 

380 
390 

400 

410 
426 
430 
446 
450 
460 
478 
480 
490 
500 



REM HORIZONTAL SCROLLER/PLOTTER 
REM WRITTEN EV JOHN GIRARD 
FORI= «26 TO 856 :REfiDDC = POKE I , DC: NEXT 
FOP I = 1 f 04 : REflDPD : P < I > =PD : NEXT I 
FflR I = 1 T 09 : REflDL = PH < I ':> =L : NEXT 
DATA169, 19,32,219,255, 170, 169,29 
DATA32, 210,255, 169,29,32,210,255 
DATA169, 13,32,216,255,202,224,0,208 

DATA236 , 36 , , 76 , 58 , 3 

REM PLOTTING CHARACTER DATA 

DATA 123,126,103,124 

DAT A 1 00 , 1 00 , 82 , 70 , 64 , 67 , 68 , b'J , yy 

PR I NT" 3" 

PRINT"*!!!"! VOU WISH dJSJflRTER BOX OR" 

PRINT"»SHaDRIZOHTflL LINE PLOTTING CHARACT 

ERS?" 

GETQ* : IFQ$="Q"THENQ=1 = GOTO280 

IFQ*O"H"THEN230 

Q=2 

PR I NT " 3" = SVS826 : PR I NT 

FOR I = 1 Tfi3* = PR I NT " -" ; = NEXT : PR I NT : PR I NTTAE < 

15)"/ -• 

PR I NT "FUNCTION = SIhK ^-V2> * C0S< , - J -' . -'' 1 8 ) 

V= < ?*a-<(SIN<M/2)*C0S<M/18:'O)> :V^=V 

V2=?-1*SIN-;MX2>*C0S<M/18::' 

M=M+1 : IFM>55THENM=0 

riHPr-iOSUE390, 460 : SVS826 

Mt=STR*<M) : IFM=0THENM*=" O" 

PRINT":«!H!ttWlf -." 

IFSGNtV2)=-lTHENPRINT" ^-' = "M*, "AMP= S"STR 

$ < I NT ( < V2* 1 00 ':■ + . 5 > / 1 00 ) ; : G0T03 1 

PR I NT " '-" = " H* , " AMP= " I NT (. < V2* 1 88 > + . 5 > / 1 00 

; :CnT031@ 

REM Q BOX PLOT SUBROUTINE 

I F V- 1 NT < V > > . 5THENC=2 

I FV- INT < V > <= . 5THENC= 1 

I FSGN (. V-0V> = 1 THENC=C+2 

P0KE33526- 1 NT < V > *40 , P < C > 

0V=V 

RETURN 

REM H0RIZ LINE PLOT SUBROUTINE 

LL=1+INT(9*CV-INT(V))> 

POKE33526-IHT<V>*40,PH'::LL> 

0V=V 

RETURN 
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I gt- 





HORI 


ZONTflL SCI 


POLLER 




033fl 


A3 13 


LDfl 


#13 






033C 


20D2FF 


JSR 


FFD2 


: CURSOR 


HOME 


033F 


oa 


TAX 




=PUT 19 


IN X REG 


0340 


A91D 


LDfl 


#1D 






6342 


20D2FF 


JSR 


FFD2 


: CURSOR 


RIGHT 


0345 


A3 14 


LDfl 


#14 






0347 


20D2FF 


JSR 


FFD2 


: CURSOR 


DELETE 


834F, 


ftS&H 


LDfl 


#0D 






034C 


20D2FF 


JSR 


FFD2 


: CRLF 




034F 


Cfl 


DEX 








0350 


E000 


CPX 


#00 


=DOHE is 


• TIMES? 


0352 


H0EC 


BNE 


0340 


•'HO. . .DC 


i AGAIN 


0354 


60 


RTS 




: RETURN 


TO BASIC 


0355 


00 


BRK 








0356 


4C3H03 


JMP 


033fl 







The program starts by sending the 
cursor home. Next, the cursor is moved 
to the second column, top line. A 
delete is performed; this shifts the top 
line display to the left by one column. 
The cursor moves down to the next 
line, and the process is repeated 18 
more times. The bottom 6 lines are un- 
touched and may be used as a text win- 
dow. The demonstration program, as 
written, will run on old and upgraded 
ROM CBM/PETs. I have included the 
option to plot either horizontal lines or 
the quarter-boxes. AH plotting is done 
in the 37th column, thus the plotting 
subroutines are short, simple, and ex- 
tremely fast. 



As research associates in Lecture 
Demonstrations, John Girard and Loren 
Wright (MICRO'S PET Vet) developed 
more than two dozen college-level physics 
programs at Berkeley. Mr. Girard is now 
training for systems analysis on the 
Burroughs 7800 system at Pacific 
Telephone Headquarters, San Francisco. 



JMCftO 



JL/ecision 
faystems 



Decision Systems 

P.0.-Box~\3OK 
Denton. TX 76203 



SOFTWARE FOR THE APPLE II* 

ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BA~SIC programs. Retrieve by key, partial key or sequentially. Space fron 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 
$50 Disk, Applesoft. 

PBASIC-OS is a sophisticated .preprocessor for structured BASIC. Use advanced 
logic constructs such as IF. ..ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 
$35. Disk, Applesoft (48K, ROM or Language Cardl . 

' DSA — DS is a dis-assembler for 6502 code. Now you can easily dis-assemble anv 
machine language program for the Apple and use the dis-assembled code directly as 
input to your assembler. Dis-assembles instructions and data. Produces code com- 
patible with the S-C Assembler (version 4.0). Apple's Toolkit assembler and others. 
$26 Disk, Applesoft (32K, ROM or Language Cardl. 

FOR M-DS is a complete system for the definition of input and output froms. FORM 
DS supplies the automatic checking of numeric input for acceptable range of values 
automatic formatting of numeric output, and many more features. 
$25 Disk. Applesoft I32K. ROM or Language Cardl 

UTIL-DS is a set of routines for use with Applesoft to lormat numeric output, selec 
tivelv clear variables (Applesoft's CLEAR gets everything), improve error handling 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 
$25 Disk, Apelesoft. 

SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 
$15 Disk, Applesoft (32K, ROM or Language Card). 



lAdd $4.00 for Foreign Mail) 
"Apple II is a registered trademark of the Apple Computer Cu 



Singing the file transfer .blues? Then. 



Get B. I.T.S. 



Use your Micromodem H ,' A I D 2 Card, or 
Apple Comm Card 3 to: 

Send data files, BASIC programs, 
even machine cade 

to most computers over phone I ines. 

Copy anything you see 

into a 31K buffer then save it on disk 
and/or 1 print it under your complete control 

Many more features! 

See it at your favorite computer 
store today. 



Trademarks held by: 

1 - Hayes Microcomputer Products Inc 

2 - S S M 

3- Apple Computer Inc 

S. I.T.S. is a trademark of: 

MicraSoftware Systems 

7927 Jones Branch Dr. Suite4DO 

McLean, Virginia 22102 

C7D3) 3B5-2944 
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Integer Flash for the Apple 



i 



It Is possible to produce 
flashing characters In Integer 
BASIC, but you will need to 
understand some underlying 
mechanisms. 



Richard C. Vile, Jr. 
3467 Yellowstone Dr. 
Ann Arbor, Michigan 48105 



Have you ever been irked by the lack of 
an Apple II Integer BASIC FLASH state- 
ment? Have you ever wondered why the 
Integer BASIC manual tells you how to 
produce inverse video (POKE 50,63), 
but balks at similar instructions for 
flashing video? Have you ever ex- 
perimented, trying to find a POKE 50, V 
which would "work", but been forced 
to give up in frustration? Well, despair 
no more! Read on for the solution to the 
Integer BASIC FLASH problem. 

Apple II Character Representation 

The Apple II allows for 64 different 
characters to be displayed in TEXT 
mode. The representation of 64 distinct 
characters only requires 6 bits, but ob- 
viously 8 bits are used to store each 
character in memory. Thus, one could 
imagine up to four different "flavors" 
of characters, depending on what value 
(0-3) the 2 high order bits of the 
character byte happen to take on. The 
Apple II Reference Manual, 
#A2L0001A, contains a table on page 
15 which shows the assignment of 8-bit 
"codes" to actual displaying 
characters. It turns out that there are 
only three visually distinguishable 
modes: NORMAL, FLASHING, and 
INVERSE. 

The codes $80 through $9F are 
reserved for the control characters (and 
display as blanks), thus preventing a 
fourth mode, such as LOW INTENSITY. 
The distribution of values is shown in 
table 1. 







Table 1 


$00- 


$lf 


INVERSE MODE @ through _ (underscore) 


$20- 


$3F 


IN\ERSE MODE space through ? 


$40- 


$5F 


FLASHING MODE @ through _ 


$60- 


$7F 


FLASHING MODE space through ? 


$80- 


$9F 


BASIC Control Characters (No Display) 


$A0 


-$BF 


NORMAL MODE space through ? 


$C0 


-$DF 


NORMAL MODE @ through _ 


$E0 


$FF 


Extra codes: Normally will not occur in BASIC. 

If they are fed to COUT, they display as 
NORMAL MODE characters space through ?. 






Listing 1 




5 


GOSUB 1C0O 




10 


TEXT : CALL -936 




15 


VTAB 8 : TAB 1 




20 


FOR I»0 TO 255 




25 


POKE 0,1 




30 


CALL 1 




35 


NEXT" I 




99 


END 




1000 


REM POKE IN THE COUT 




1001 


REM INTERFACE SUBROUTINE 




1002 


REM 




1005 


POKE 1,165 




1006 


POKE 2,0 




1007 


POKE 3,32 




1008 


POKE 4,237 




1009 


POKE 5,253 




1010 


POKE 6,96 




1019 


RETURN 

Listing 2 




5 


KBD=-1 63134 :CLR=-16 368 :WAIT=500:SHOWIT=100 




10 


REM TEST POKE 50, VALUE 




11 


REM FOR DIFFERENT VALUES 




12 


REM OF "VALUE"! 1? 




13 


REM 




14 


REM !"#«%S'()* 




15 


REM eABCDEFGHI 




16 


REM 0123456789 




17 


REM 




20 


FOR 1=0 TO 255 STEP 8 




25 


POKE 50,1: GOSUB SHOWIT 




30 


GOSUB WAIT 




35 


NEXT I 




90 


POKE 50,2 55: LIST 




99 


END 




100 


LIST : RETURN 




500 


KEY= PEEK (KBD) 




505 


IF KEY<128 THEN RETURN 




510 


POKE CLR,0 




515 


KEY= PEEK (KBD) s IF KEY<128 THEN 515 




520 


POKE CLR,0: RETURN 
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The curious individual who wishes 
to "verify" this table may seek a way 
to display all the codes from to 255 on 
the screen. The Apple II Monitor con- 
tains the routine COUT, which will 
place the value of the code in the 6502 
accumulator onto the next available 
screen location. The trick is to use a 
machine language interface routine, 
which guarantees that a given value 
will be in the accumulator. This may 
be accomplished as follows: First POKE 
the following routine into memory |I 
have used PAGEO): 



LDA $00 

JSR COUT ($FDED) 

RTS 

Then use the Integer BASIC 
statements: 

POKE 0,1 

CALL 1 (assuming you POKEd 

starting at location 1) 

to display the value I. Listing 1 
illustrates the application of this 
approach to produce the desired display 
of all possible character codes in the 
order to 255. Run the program to 
verify the Apple Reference Manual's 
description. 



Quirks in the Character 
Assignments 

In the "normal" ASCII code, the 
character codes for space through ? 
precede the character codes for @ 
through This relationship is main- 
tained in the NORMAL mode of the 
Apple II display. However, for both the 
INVERSE mode and the FLASHING 
mode, this relationship is reversed: the 
codes for INVERSE space through 
INVERSE ? follow rather than precede 
the codes for INVERSE @ through 

INVERSE The same relationship 

holds for the FLASHING mode. Let's 
see what we may discover about the 
implications this may hold for the use 
of location 50 in Integer BASIC. 

Page 32 of the Apple II Reference 
Manual tells us how location 50, the 
so-called Normal/Inverse Mask loca- 
tion, is used by COUT. Except for con- 
trol characters, a logical AND is per- 
formed between the outgoing character 
and the value in location 50. If the 
outgoing character "came from" 
BASIC, it will be a character with code 
between $A0 and $DF. Using the value 
255 as a mask will preserve all bits of 
the original code, whereas using the 



value 63 as a mask will "strip off" the 
2 high order bits of the original code. 
Codes between $A0 and $DF will be 
transformed to codes between $00 and 
$3F, But, let's look at that a little more 
carefully! The values between $A0 and 
$BF are taken into the values between 
$20 and $3F, not the values between 

$00 and $1F. Thus @ through 

become HWERSE @ through INVERSE 

, and " " (space) through ? become 

INVERSE " " through INVERSE ?. 
Figure 1 illustrates this transformation. 



Now suppose location 50 contains 
the number 127. Performing a logical 
AND of this value with a character 
code will remove only the most signifi- 
cant bit. This will produce exactly the 
same result as before for the codes $A0 
through $BF; consequently, space 
through ? will be displayed in INVERSE 
mode. However, for the codes SCO 
through $DF the resulting values will 
now be $40 through $5F. That means 

that @ through will be displayed in 

FLASHING mode. 



IliOlliOllllTflol E 
fillllll ■ 



MASKS: 
$3F,$7F,$FF 

S L :i ING lololilolilililot lololJlolllllilol lilolilollltlilol 



code'^sae lliolllolllllllol lllolilolllllllfi lllolllolilllilol 




$2E - INVERSE $2E - INVERSE $AE - NORMAL 



$A0-$AF 



CODE ■= $B7 
MASKS 



[IF i l loll li 71 [TT 

BBSs 



^SULTING |o|o|l| Mill |j| (ojo 



m 



in 



cSE 1 ^,,, WqitMKififl lllolililQl111111 ki?i^ItI?ItItItI 



wM 



ID 



inn 



n 



] IllOlllllOlllillt 



$B0-$BF 



$37 - INVERSE $37 - INVERSE $B7 - NORMAL 



STARTING 



CODE » $C6 U TfO 



MASKS 



RESULTING 
CODE = 







loioioioioliTifol [o 



H 



TTTTol |i|i|o|o|o|i|i|oi liiiioioioii 17151 



lolololililol |i|i|o|olo|iT7|o| 



$06 - INVERSE $46 - FLASHING $C6 - NORMAL 



starting iiuiouuioiiiii n 



10 



llolilil union liioiiTTI 




Figure 1 - Integer BASIC Location 50 Manipulations 







Listing 3 


2000 


REM PRINT A 


FLASHING CHARACTER 


2001 


REN 




2 00 5 


IF ASC(CH$)<= 


= ASC("?") THEN POKE 0, ASC(CH$)-64 


2010 


IF ASC(CH$)> 


ASC("?") THEN POKE 0, ASC(CH$)-128 


2015 


CALL 1 




2019 


RETURN 
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Listing 4 



0800 




********************* 


0800 




.* 


* 


0800 




;* FLA 


SH SUBROUTINE * 


0800 




.* 


* 


0800 




;* BY 


RICARD VILE * 


0800 




. * 


* 


0800 




.******************** 


0800 




.* 




080C 




C0UT1 


EQU SFDFO 


0800 




• 




0001 






ORC $1 


0001 






OBJ $800 


0001 




• 




0001 


C9A0 . 


FLASH 


CMP #$A0 


0003 


B003 




BCS $08 


0005 


4CF0FD 




JMP COUT1 


0008 


C9C0 




CMP #$C0 


OOOA 


B006 




BCS $12 


OOOC 


38 




SEC 


OOOD 


E940 




SBC #$40 


OOOF 


4CF0FD 




JMP COUT1 


0012 


E980 




SBC #$80 


0014 


4CF0FD 




JMP COUT1 
END 



CHECK FOR CONTROL CHARACTERS 

GO ON IF NOT 

OTHERWISE GOTO COOTl RIGHT AWAY 

IS IT BIGGER THAN ?? 

YES 

NO 

CONVERT BY SUBTRACTING 64 

.-CONVERT BY SUBTRACTING 128 



Listing 5 



10 


GOSUB 1000 


15 


GOSUI 


FLASH: PRINT "HI" 


20 


GOSUB REGULAR: PRINT "HI" 


99 


END 




1000 


REM 


POKE IN THE FLASHIT 


1001 


REM 


SUBROUTINE 


1002 


REM 




1005 


POKE 


1,201 


1006 


POKE 


2,141 


1007 


PCKE 


3,208 


1008 


POKE 


4,3 


1009 


POKE 


5,76 


1010 


POKE 


6,240 


1011 


POKE 


7,253 


1012 


POKE 


8,201 


1013 


POKE 


9, 192 


1014 


POKE 


10,176 


1015 


POKE 


11,6 


1016 


POKE 


12,56 


1017 


POKE 


13,233 


1018 


PCKE 


14,64 


1019 


POKE 


15,76 


1020 


POKE 


16,240 


1021 


POKE 


17,253 


1022 


POKE 


18,233 


1023 


POKE 


19, 128 


1024 


POKE 


20,76 


1025 


POKE 


21,240 


1026 


POKE 


22,253 


1030 


FLASH=10 50:REGULAR=107 5 


1049 


RETURN 


1050 


POKE 


54,1: POKE 55,0: RETURN 


1075 


POKE 


54,189: POKE 55,158: RETURN 


1099 


RETURN 



Listing 6 



5 DIM MSC$ (40) 

6 DOSCMD=500 

10 D$="": REM CONTROL-D 

15 TEXT : CALL -936 

20 INPUT "STARTING LINE NUMBER FOR POKES ", SPOKE 

25 PRINT "STARTING LINE NUMBER FOR FLASH" 

26 INPUT "SUBROUTINE ", SPLASH 

30 MSG$="OPEN INTEGER FLASH": GOSUB DOSCMD 
35 MSG$="WRITE INTEGER FLASH": GOSUB DOSCMD 
40 PRINT SPOKE;" REM POKE IN THE FLASHIT" 

REM SUBROUTINE" 

REM" 



41 PRINT SPOKE+1 

4 2 PRINT SPOKE+2 

45 PRINT SPOKE+5 

46 PRINT SPOKE+6 

47 PRINT SPOKE+7 

48 PRINT SPOKE+8 



POKE 1,165" 
POKE 2,0" 
POKE 3,32" 
POKE 4,237" 



(continued) 



Placing values other than 63, 127, 
or 255 into location 50 will cause some 
of the significant bits of the character 
code itself to be dropped by COUT 
before display. The results can be 
amusing. Try the program in listing 2, 
for example, or do a POKE 50,254 on an 
unsuspecting friend's Apple (be sure to 
stay around to undo the chaos, or you 
may lose a friend!). 

Conversion Factors — Normal to 
Flashing 

Now that we see that location 50 
cannot be used to solve the problem, 
we shall have to find another way. We 
already have a machine language inter- 
face to the COUT routine, as suggested 
above. What we need now is an Integer 
BASIC routine to POKE the correct 
values into location for each 
character we might wish to print. An 
inefficient way to do this would be to 
create a translation table, i.e., an array 
with one entry lor each normal mode 
character f codes $A0 to $DF). The 
value stored in each array location 
would be the code for the correspond- 
ing flashing character. Thus, if we 
name the array FLASH, FLASH(l) 
would contain 32, FLASH(2) would 
contain 33, ... ,FLASH(33) would con- 
tain 64, FLASHJ34) would contain 65, 
and so on. There is a much easier way, 
however. 

It is based on the observation that 
the set of 64 characters comes in two 32 
character "chunks"— space through ? 
and @ through . There is a fixed rela- 
tionship between normal characters 
and their corresponding flashing 
equivalents in each chunk. We can 
deduce this relationship by comparing 
the codes for the first character in each 
chunk: 

FLASHING space = 32 
NORMAL space = 160 
160-32 = 128 
FLASHING @ = 64 
NORMAL @ = 128 
128-64 = 64 

This tells us that the common conver- 
sion factor for space through ? is 128 

and for @ through it is 64. The code 

for the conversion routine then almost 
writes itself. Just pick off one character 
at a time from any string we wish to 
convert and feed it to the conversion 
factors! This is exemplified in listing 3. 

To use the techniques presented so 
far in an Integer BASIC program, you 
should include the two subroutines to 
POKE the machine language interface 
(starting at line 1000 of listing 1) and to 
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decimate character strings (listing 3). 
GOSUB 1000 should be used to in- 
itialize the interface and code such as 
the following: 

MSG$ = "THIS IS A 

MESSAGE!!" 

GOSUB 2000 

should be used to produce inverse 
messages. 

A Faster Technique — Using CSW 

The Apple n Monitor kindly pro- 
vides a way to augment or to totally 
replace the COUT (Character OUT) 
subroutine. The COUT subroutine 
begins with the instruction: 

JMP (CSWL) 

This indicates an indirect jump to the 
address stored in the Page Zero loca- 
tions CSWL and CSWH ($36,$37). 
When the Apple II is in normal screen 
mode, these locations contain the ad- 
dress of the instruction immediately 
following the JMP instruction itself. 
This means that COUT normally con- 
tinues by jumping to its own code. 
However, since CSWL and CSWH are 
locations in RAM instead of ROM, any 
running program may replace their 
values at its convenience (we hope not 
at its peril!). This occurs, for example, 
when a PR#1 statement is used to 
select a printer for output. It also oc- 
curs each time the Apple II DOS 
transfers a character to the disk. 

The Integer BASIC PRINT state- 
ment causes a character at a time to ar- 
rive at the portals of the COUT 
subroutine carried by the 6502 AC. 
Thus, we may assume that the ac- 
cumulator is already "set up" when 
the JMP (CSWL) instruction is ex- 
ecuted. How can we make use of this? 
We simply write a routine which 
checks the value of the incoming 
character to see if it is smaller than or 
larger than the @ character (code - 
$C0) and convert it accordingly (as did 
the Integer BASIC subroutine presented 
earlier). One small detail— we shall 
have to check first for control 
characters, since those should not be 
translated. The machine language code 
is shown in the assembly language pro- 
gram of listing 4. 

By POKEing this routine instead of 
our original one, the need is removed 
for the second Integer BASIC 
subroutine. To turn on the FLASH 
mode, use the statements: 

POKE 54,1 : POKE 55,0 



Listing 6 (continued) 

49 PRINT SPOKE+9;" POKE 5,253" 

50 PRINT SPOKE+10;" POKE 6,96" 
59 PRINT SP0KE+19;" RETURN" 

100 PRINT SFLASH;" REM PRINT A FLASHING CHARACTER" 

101 PRINT SFLAEH+1;" REM" 

105 PRINT SFLASH+5?" IF ASC (CH$) <=1 91 THEN POKE , ASC (CH$) -64" 
110 PRINT SFLASH+10;" IF ASC(CH$)>191 THEN POKE ,AEC (CH$) -128" 
115 PRINT SFLASH+15;" CALL 1" 

119 PRINT SFLASH+19;" RETURN" 

120 MSG$="CL0SE INTEGER FLASH": GOSUB DOSCMD 
125 END 

500 PRINT D$;MSC$: RETURN 



5 
6 
10 
15 
20 
30 
35 
40 
41 
42 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
6C 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
120 
125 
500 



Listing 7 

DIM MSG$(40) 

I)OECMD=500 

i:$ = "": REM CONTROL-D 

TEXT : CALL -936 

INPUT "STARTING LINE NUMBER FOR POKES ", SPOKE 

MSC$="0PEN INTEGER FLASH2": GOSUB DOSCMD 

MSG$="WRITE INTEGER FLASH2": GOSUB DOSCMD 

PRINT SPOKE;" REM POKE IN THE FLASHIT" 

PRINT SPOKE+1;" REM SUBROUTINE" 

PRINT SPOKE+2;" REM" 

POKE 1,201" 

POKE 2,160" 

POKE 3,176" 

POKE 4,3" 

POKE 5,76" 



PRINT SPOKE+5; 

PRINT SPOKE+6; 

PRINT SPOKE+7; 

PRINT. SPOKE+8; 

PRINT SFOKE+9; 

PRINT SPOKE+10;" POKE 6,240" 

PRINT SFOKE+11;" POKE 7,253" 

PRINT SPOKE+12;" POKE 8,201" 

PRINT SPOKE+13;" POKE 9,192" 

PRINT SPOKE+14;" POKE 10,176 

PRINT SPOKE+15;" POKE 11,6 

PRINT SPOKE+16; 

PRINT SPOKE+1 7; 

PRINT SPOKE+18;" POKE 14,64" 

PRINT SPOKE+19;" POKE 15,76 

PRINT SPOKE+20; 

PRINT SPOKE+21; 

PRINT SPOKE+22;" POKE 18,233" 

PRINT SPOKE+23;" POKE 19,128" 

PRINT SPOKE+24;" POKE 20,76" 

PRINT SPOKE+25;" POKE 21,240" 

PRINT SPOKE+26;" POKE 22,253 

PRINT SPOKE+30; 

PRINT SPOKE+49; 

PRINT SPOKE+50; 

PRINT SPOKE+75; 

MSG$="CLOSE INTEGER FLASH2" 

END 

PEINT D$;MSG$: RETURN 



POKE 12,56" 
POKE 13,233" 



POKE 16,240" 
POKE 17,253" 



FLASH=";SPOKE+50;":REGULAR 
RETURN" 

POKE 54,1: POKE 55,0: RETURN" 
POKE 54, 189: POKE 55,158: RETURN 
GOSUB DOSCMD 



;SPOKE+75 



14 
14 
14 
14 
14 
14 



10 TEXT : 
15 GOSUB 
20 VTAB 8 

25 TAB 14 

26 TAB 

27 TAB 

28 TAB 

29 TAB 

30 TAB 

31 TAB 
90 GOSUB 
99 END 

100 GOSUB 

101 GOSUB 

102 GOSUB 
1*03 GOSUB 
104 GOSUB 

109 RETURN 

110 GOSUB 

111 GOSUB 

112 GOSUB 

113 GOSUB 



Listing 8 

CALL -936 
1000: GOSUB FLASH 

: GOSUB 100 

: GOSUB 110 

: GOSUB 110 

: GOSUB 120 

: GOSUB 110 

: GOSUB 110 

: GOSUB 100 
REGULAR 

FLASH: PRINT " "; 
REGULAR: PRINT " 
FLASH: PRINT " "; 
REGULAR: PRINT " 
FLASH: PRINT " 

FLASH: PRINT " "; 
REGULAR: PRINT " 
FLASH: PRINT " "; 
REGULAR: PRINT " 



86 



MICRO - The 6502/6809 Journal 



No. 37 -June 1981 



isiKt^sawswrssHiSfcs 



114 GOSUB FLASH.: PRINT "" 




119 RETURN 




120 GOSUB FLASH: PRINT " " ; 




121 GOSUB REGULAR: PRINT " 




122 GOSUB FLASH: PRINT " " 




129 RETURN 




1000 REM POKE IN THE FLASHIT 




1001 REM SUBROUTINE 




1002 REM 




1005 POKE 1,201 




1006 POKE 2,160 




1007 POKE 3,176 




1008 POKE 4,3 




1009 POKE 5,76 




1010 POKE 6,240 




1011 POKE 7,253 




1012 POKE 8,201 




1013 POKE 9,192 




1014 POKE 10,176 




1015 POKE 11,6 




1016 POKE 12,56 




1017 POKE 13,233 




1018 POKE 14,64 




1019 POKE 15,76 




10 20 POKE 16,24 




1021 POKE 17,253 




1022 POKE 18,233 




1023 POKE 19,128 




1024 POKE 20,76 




1025 POKE 21,240 




1026 POKE 22,253 




1030 FLASH=1050:REGULAR=1075 




104 9 RETURN. 




1050 POKE 54,1: POKE 55,0: RETURN 




1075 POKE 54,189: POKE 55,158: RETURN 




Listing 8 B 




10 GOSUB 1000: REM ESTABLISH FLASH COMMAND 




15 GOSUB FLASfl: REM TURN IT ON 




18 CALL -936 




19 N=l 




20 FOR- 1 = 1 TO N 




25 FOR 1=0 TO N 




30 R= RND (23)+l:C= RND (39)+l: VTAB R: TAB C: PRINT " " ; 


3 5 NEXT I 




40 CALL -936 




45 N=N+1: IF N=1000 THEN END 




50 GOTO 20 




1000 REM POKE IN THE. FLASHIT 




1001 REM SUBROUTINE 




1002 REM 




1005 POKE- 1,201 




1006 POKE 2,160 




1007 POKE 3,176 




1008 POKE 4,3 




1009 POKE 5,76 




1010 POKE 6,240 




1011 POKE 7,253 




1012 POKE 8,201 




1013 POKE 9,192 




1014 POKE 10,176 




1015' POKE 11,6 




1016 POKE- 12,56 




1017 POKE., 13,233 




1018 POKE 14,64 




1019 POKE 15,76 




1020 POKE 16,240 




1021 POKE 17,253 




1022 POKE 18,233 




1023 POKE 19,128 




1024 POKE 20,76 




1025 POKE 21,240 




1026 POKE 22,253 




1030 FLASH=1050:REGULAR=1075 




1049 RETURN 




1050 POKE 54,1: POKE 55,0: RETURN. 




1075 POKE 54, 189: POKE 55,158: RETURN 





To turn it off (return to NORMAL 
mode), use the statements: 

POKE 54,189: POKE 55,158 

Listing 5 shows the new POKE routine, 
together with two subroutines im- 
plementing the above switching pro- 
cesses. Now to turn on FLASH mode, 
simply say: 

GOSUB FLASH- 

and to turn it back off, say: 

GOSUB REGULAR 

(Integer BASIC will not allow us to say 
NORMAL = 1075, since the identifier 
NORMAL contains the reserved word 
OR!). 

Putting FLASH to Work 

Now that you know how to FLASH, 
you certainly will want to use it. One 
slightly annoying feature of this is that 
you must key in the subroutines before 
using them. The line numbers I have 
chosen to use, may clash with those in 
your program. If you have a .DISK 
system, you can use the EXEC facility 
to ease the load. 

Listings 6 and 7 show programs that 
will create textfiles containing the 
subroutines presented. These programs 
will prompt you for the desired START- 
ING LINE NUMBERS' of the 
subroutines. When they finish, you 
should have a file called either 
INTEGER FLASH or INTEGER 
FLASH2, depending on which technique 
you choose to employ. To include the 
subroutine(s) in your program, you 
simply use the EXEC command. For 
example, 

> LOAD MYPROGRAM 

> EXEC INTEGER FLASH2 

The EXEC command will not overwrite 
the program you loaded with the LOAD 
MYPROGRAM command, but rather 
add in the lines it contains, just as if 
you had typed them from the keyboard 
yourself. It's a great time saver! By this 
approach you are not always limited to 
using the same line numbers for the 
FLASH subroutines. Simply rerun the 
textfile-creating program and specify 
new line numbers. 

Using the FLASH Feature in Youi 
Programs 

No doubt you already have many 
useful applications of the FLASH mode 
in titles and prompts. For your extra 
enlightenment, try the program of 
listing 8 and enjoy! 4DCAO 
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Polled Keyboard 
for CIPISuperboard 



By continuously interrogating 
the keyboard it is possible to 
generate both upper and lower 
case characters on OSI's 
C1P/Superboard microcomputer. 



Michael J. Alport 

5 Woodland Mounds Rd. 

Iowa City, Iowa 52240 



I was pleased to find, in a recent issue 
of MICRO (22: 17], an article by Edward 
H. Carlson describing a program which 
would enable the OSI keyboard to 
operate as an ordinary typewriter. I had 
been thinking of writing such a pro- 
gram, to be used in conjunction with a 
word processor, for some time, and the 
prospect of having a debugged program 
which only had to be keyed in looked 
attractive. My joy was short-lived, 
however, when I realized that Edward 
Carlson's program had been written for 
the 542 board and would not work with 
the 600 board found in the ClP/Super- 
board microcomputer. The difference 
between the two boards is quite simple. 
Instead of polling the rows/columns 
with a byte consisting of a combination 
of seven 0's and a 1, the 600 board uses 
a combination of seven l's and a 0. I 
suspect that a simple fix would be to 
replace all Mr. Carlson's 



and 



STA $DF00 



LDA $OF00 



instructions with 



and 



JSR $FCBE 



JSR $FCCF 



respectively. These are monitor 
routines which use an EOR #$FF to in- 
vert the bit pattern, replacing l's with 
0's and vice versa. However, it is 



10 


DF00= 




KYPORT 


=$DF00 




20 


7E00 






*=$7EO0 




30 


7E01 




XREG 


* = *+1 




40 


7E02 




CTRL 


♦ = *+1 




50 


7E03 




LOC 


* = *+1 




60 


7E03 


20187E 


ENTER 


JSR 


KEYBRD 


MAIN ROUTINE 


70 


7E06 


8D027E 




STA 


LOC 


SAVE FOR RPT KEY 


80 


7E09 


202DBF 




JSR 


$BF2D 


PRINT CHARACTER 


90 


7E0C 


20027F 




JSR 


DELAY 




100 


7E0F 


20F07E 




JSR 


KYDONE 


KEY DEPRESSED? 


110 


7E12 


20027F 




JSR 


DELAY 




120 


7E15 


4C037E 


LOOP 


JMP 


ENTER 




130 


7E18 


D8 


KEYBRD 


CLD 






140 


7E19 


A2FE 




LDX 


#254 


CHECK CTRL ROW 


150 


7E1ii 


8E00DF 




STX 


KYPORT 




160 


7E1E 


AE00DF 




LDX 


KYPORT 




170 


7E21! 


8E017E 




STX 


CTRL 


SAVE UNTIL LATER 


180 


7E2ti 


E0FE 




CPX 


#254 


SHIFT LOCK? 


190 


7E26i 


D004 




BNE 


CONT 


UP, CONTINUE 


200 


7E28 


20EDFE 




JSR 


$FEED 


DOWN 


210 


7E2B 


60 




RTS 






220 


7E2C 


E07F 


CONT 


CPX 


#127 


REPEAT? 


230 


7E2E 


D004 




BNE 


NREP 


NO 


240 


7E30 


AD027E 




LDA 


LOC 


RETURN WITH LAST CHARACTER 


250 


7E33 


60 




RTS 






260 


7E34 


E0DF 


NREP 


CPX 


#223 


ESC? 


270 


7E36 


DQ03 




BNE 


CHAR 


YES, RETURN WITH $1B 


280 


7E38 


A91B 




LDA 


*$1B 




290 


7E3A 


60 




RTS 






300 


7E3B 


A007 


CHAR 


LDY 


17 


SET UP ROW COUNT 


310 


7E3D 


88 


ROW 


DEY 




BEGIH ROW SEARCH 


320 


7E3E 


30D8 




BHI 


KEYBRD 


NO CHARACTER, TRY AGAIN 


330 


7E40 


A207 




LDX 


#7 


SET UP COL- COUNT 


340 


7E42 


CA 


COL 


DEX 




BEGIN COLUMN SEARCH 


350 


7E43 


30F8 




BMI 


RON 




360 


7E45 


B9E97E 




LDA 


MASK,Y 


LOAD MASK BYTE 


370 


7E48 


8D00DF 




STA 


KYPORT 




380 


7E4B 


AD00DF 




LDA 


KYPORT 




390 


7E4E 


DDE97E 




CMP 


MASK.X 


COMPARE WITH MASK BYTE 


400 


7E51 


F003 




BEQ 


CALC 


MATCH FOUND 


410 


7E53 


4C427E 




JMP 


COL 




420 


7E56 


8E007E 


CALC 


STX 


XREG 


SAVE COL. COUNT 


430 


7E59 


A90O 




LDA 


#0 


CALC. CHAR. POSITION 


440 


7E5B 


18 




CLC 






450 


7E5C 


88 


AGAIN 


DEY 




. 


460 


7E5D 


3005 




BMI 


ADDX 




470 


7E5F 


6907 




ADC 


#7 




480 


7E61 


4C5C7E 




JMP 


AGAIN 




490 


7E64 


6D007E 


ADDX 


ADC 


XREG 




50O 


7E67 


AA 




TAX 






510 


7E68 


AD017E 




LDA 


CTRL 


CHECK FOR SHIFT 


520 


7E6B 


2906 




AND 


«6 




530 


7E6D 


C906 




CMP 


#6 




540 


7E6F 


F005 




BEQ 


NSHIFT 


NOT SHIFT 


550 


7E71 


18 




CLC 




SHIFT-ADD 4 9 TO CHAP.. POINTER 


560 


7E72 


8A 




TXA 






570 


7E73 


6931 




ADC 


#49 




580 


7E75 


AA 




TAX 






590 


7E76 


BD877E 


NSHIFT 


LDA 


CHARTB,X 


LOOK UP CHAR. TABLE 


600 


7E79 


,&A 




TAX 






610 


7E7A 


AD017E 




LDA 


CTRL 


CTRL? 


620 


7E7D 


2940 




AND 


JJ40 




630 


7E7F 


1)004 




BNE 


NCTRL 


NO 


640 


7E81 


ISA 




TXA 






650 


7E8 2 


0980 




ORA 


i$80 


YES, SET BIT 7 
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sometimes easier to rewrite a complete 
program than to attempt to modify 
someone else's. So while I was 
rewriting the program, I took the op- 
portunity to add a number of features 
which were not included in the original 
program. 

The program itself should be self- 
explanatory, especially when read in 
conjuntion with Mr. Carlson's article. I 
will, however, make a few comments 
about the additional features included 
in my program. 

The shift-lock key is continually 
polled to determine whether it is in the 
up or down position. If it is in the down 
position, control is transferred to the 
normal monitor keyboard routine 
beginning at $FEED. If the shift-lock is 
up, the new keyboard routine is ex- 
ecuted. This makes it posible to use the 
new keyboard routine in conjunction 
with BASIC by placing the address of 
this keyboard routine in BASIC'S input 
vector location. 

I found it necessary to add a delay 
routine fin addition to the original 
KYDONE routine) to eliminate ex- 
cessive contact bounce found On my 
keyboard. It may be possible to omit 
this routine on other keyboards. 



Michael J. Alport's interest in 
microcomputing began about two years 
ago and since then he has been spending 
half his spare time designing a super I/O 
board, writing graphics software, and 
discovering the tremendous potential of 
FORTH, and the other half trying to 
decide why he finds microcomputing so 
exciting. His professional interest lies in 
plasma physics. 

AKftO 
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660 


7E84 60 




RTS 




670 


7E85 8A 


NCTRL 


TXA 




630 


7E86 60 




RTS 




690 


7EE7 31 


CHARTB 


.BYTE 


'1231567890:-' ,$7F, ' .lo" ,$0A,$0D, ' ' 


690 


7E88 32 




690 


7E92 2D 


690 


7EG9 33 




690 


7E93 7F 


690 


7E8A 34 




690 


7E94 20 


690 


7E8B 35 




690 


7E95 2E 


690 


7E8C 36 




690 


7E96 6C 


690 


7E8D 37 




690 


7E97 6F 


690 


7E8E 38 




690 


7E98 OA 


690 


7E8F 39 




690 


7E99 0D 


690 


7E90 30 




690 


7E9A 20 


690 


7E91 3A 




690 


7E9B 20 


700 


7D9C 77 




.BYTE 


■wertyuisdfghjkxcvbnm, ' 


700 


7E9D 65 




700 


7EA7 68 


700 


7E9E 72 




700 


7EA8 6 A 


700 


7E9F 74 




700 


7EA9 6B 


700 


7EA0 79 




700 


7EAA 78 


700 


7EA1 75 




700 


7EAB 63 


700 


7EA2 69 




700 


7EAC 76 


700 


7EA3 73 




700 


7EAD 62 


700 


7EA4 64 




700 


7EAE 6E 


700 


7EA5 66 




700 


7EAF 6D 


700 


7EA6 67 




700 


7EB0 2C 


710 


7EB1 71 




.BYTE 


•gaz , ,?20, , /;p' 


710 


7EB2 61 








710 


7EB3 7A 








710 


7EB4 20 








710 


7EB5 2F 








710 


7EB6 3B 








710 


7EB7 70 








720 


7EB8 21 




.BYTE 


' 1 "#$*£', $27, '()0*-\*7F,' >LO',$0A,*0E 


720 


7EB9 22 




720 


7EC2 2A 


720 


7EBA 23 




720 


7EC3 3D 


720 


7EBB 24 




720 


7EC4 7F 


720 


7EBC 25 




720 


7EC5 20 


720 


7EBD 26 




720 


7EC6 3E 


720 


7EBE 27 




720 


7EC7 4C 


720 


7EBF 28 




720 


7EC8 4F 


720 


7EC0 29 




720 


7EC9 0A 


720 


7EC1 30 




720 


7ECA 0D 


730 


7ECB 20 




• BYTE 


■ WERTYUISDFGHJKXCVBNM <QAZ ' , $20, *?+P' 


730 


7ECC 20 




730 


7EDb 58 


730 


7ECD 57 




730 


7EDC 43 


730 


7ECE 45 




730 


7EDD 56 


730 


7ECF 52 




730 


7EDE 42 


730 


7ED0 54 




730 


7EDF 4£ 


730 


7ED1 59 




730 


7EE0 4D 


730 


7ED2 55 




730 


7EE1 3C 


730 


7ED3 49 




730 


7EE2 51 


730 


7ED4 53 




730 


7EE3 41 


730 


7ED5 44 




730 


7EE4 5A 


730 


7ED6 46 




730 


7EE5 20 


730 


7ED7 47 




730 


7EE6 3F 


730 


7ED8 48 




730 


7EE7 2B 


730 


7ED9 4A 




730 


7EE8 50 


730 


7EDA 4B 








740 


7EE9 7F 


MASK 


.BYTE 


127,191,223,239,24 7,251,253 


740 


7EEA BF 








740 ^EEB DF 








740 


7EEC EF 








740 


7EED F7 








740 


7EEE FB 








740 


7EEF FD 








750 


7EF0 A900 


KYDONE 


LDA tOO 


760 


7EF2 8D0ODF 




STA KYPORT 


770 


7EF5 AD00DF 




LDA KYPORT 


780 


7EF8 C9FF 




CMP #*FF 


790 


7EFA D001 




BNE NEXT 


800 


7EFC 60 




RTS 




810 


7EFD C9FE 


NEXT 


CMP #*FE 


820 


7EFF D0EF 




BNE KYDONE 


830 


7F01 60 




RTS 




840 


7F02 A2FF 


DELAY 


LDX IJFF DEBOUNCE ROUTINE 


850 


7F04 A020 


LP1 


LDY 1*20 


860 


7F06 88 


LP2 


DEY 




870 


7F07 D0FD 




BNE LP 2 


880 


7F09 CA 




DEX 




890 


7F0A D0F8 




BNE LP1 


900 


7F0C 60 




RTS 





No. 37 - June 1981 



MICRO - The 6502/6809 Journal 



89 



Advertisemen t 



mm mu\imwm»i 



This issue of the Ohio Scientific Small 
System's Journal is devoted entirely to part two of 
last month's UCSD Pascal article. 

User-Defined Routines in UCSD Pascal 

By D.R. Turnidge 

Part one of this note introduced the use of the 
UCSD Pascal utility routine LIBRARY.CODE to in- 
stall a unit of related procedures and functions in 
the system fibrary. The unit presented in part one- 
was extremely short and composed entirely of 
routines written in Pascal. This part presents a 
more extensive unit of routines which allow the 
utilization of the audio and color graphics 
capabilities of the C4P and C8P series of Ohio 
Scientific computers. This unit is based upon 
three 6502 assembler routines. The first two of 
these routines, POKEXT and PEEKEXT, aire minor 
modifications of similar routines which appear in 
Appendix F of Pascal Primer by David Fox and 
Mitch Waite. We thank the SAMS publishing com- 
pany for permission to include these two routines 
here. These routines function like POKE and PEEK 
in BASIC and provide, access to the memory- 
mapped features of the C4P and C8P. The third 
routine named SCREXT fills the screen with a 
specified graphics character or color. 

Part Two— Assembler Subroutines 

A. Creating the assembler text file PEEKPOKE 

The use of the UCSD Adaptable Assembler is 
discussed in detail in Section 1.7 of [3]. Use the 
EDITOR to enter the following text and saveit in a 
file named PEEKPOKE.TEXT. (Note: Labels must 
begin in column one of a source line.) 



.MACRO POP 
PLA 

STA %1 
PLA 

STA%1+1 
.ENDM 



; a macro- to pull the return 
; address off the stack 



.MACRO PUSH 
LDA %1+1 
PHA 
LDA %1 
PHA 
.ENDM 



; a macro to push the return 
; address back on the stack 



.FUNC PEEKEXT, 1 ; this function determines the 

; contents of a specified memory 
; location 
RETURN .EQU 70 ; assigns the value 70 to the label RETURN 
POP RETURN ; saves return address In locations 70 

; and 71 
PLA ; throw away four extraneous bytes of 
PLA ; data on the stack In orderto get 



at function parameter 

; pull the parameter (an address) off the 
; stack and place in locations 72 and 73 



PLA 

PLA 

PLA 

STA 72 

PLA 

STA 73 

LDY #0 ; retrieve the value currently stored 

LDA @72,Y; at the specified memory address 

TAY 

LDA #0 ; place the function value (a two byte 

PHA ; integer) on the stack before returning 

TYA ; from function call 

PHA 

PUSH RETURN ; restore the return address to stack 

RTS 



.PROC POKEXT.2 ; this procedure deposits a value in 




; a specified memory location; 


RETURN .EQU 70 




POP RETURN 


PLA 


; pull the second parameter off the stack 


STA 76 


; (ignore high byte)-store at location 76 


PLA 




PLA 


; pull first parameter (an address) off the 


STA 74 


; stack and store at locations 74 and 75 


PLA 




STA 75 




LDY#0 


; deposit the value stored at location 76 in 


LDA 76 


; the address stored in locations 74 and 75 


STA @74,Y 


PUSH RETURN 


RTS 





RETURN 
SCRMEM 
COLMEM 



COLOR 
SCREEN 



NEXTPT 



if second parameter not zero change 
to address of top of color memory 



.PROC SCREXT.2 ; this procedure fills screen with 

; specified character or color 
.EQU 70 
.EQU 208. 
.EQU 224. 
POP RETURN 

LDA #0 ; store address of top of graphics 
STA 77 ; memory in locations 77 and 78 
LDA #SCRMEM 
STA 78 
PLA 

BEQ SCREEN 
LDA #COLMEM 
STA 78 
PLA 

PLA ; first parameter containsxharacter or 
TAX ; color number for screen fill 
PLA ; store this value in accumulator 
TXA 

LDX #0 ; enter loop to deposit value stored 
LDY #0 ; in accumulator in 2048 consecutive 
STA @77,Y; memory locations beginning at 
INY ; address stored in locations 77 and 78 

CPY#0 
BNE NEXTPT 

INC 78 ; advance to next page of memory 
INX 

CPX #8 ; check to see if entire screen filled 

BNE NEXTPT ; if not, continue 
PUSH RETURN 
RTS 
.END 



The next section shows how to assemble this 
source file. Before proceeding there are several 
observations which should be made. 



CALL 1-800-321-6850 TOLL FRE 
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1. The directives .PROC and .FUNC identify 
the beginning of assembly language pro- 
cedures and functions, respectively. This 
file contains three routines. The stack is 
used to pass parameters and return func- 
tion values. For a procedure call, the 
parameters are pushed on the stack (last in 
-first out) under the return address. For a 
function call, four extra bytes are placed on 
the stack above the parameters. These four 
bytes (which are of no value in this context) 
must be removed to gain access to the func- 
tion parameters. The function value is 
returned to the host by placing it on the 
stack under the return address. The number 
2 in the statement .PROC POKEXT.2 
specifies that the procedure POKEXT has 2 
parameters. 

2. The UCSD Adaptable Assembler supports 
macro definitions. This file contains two 
macros, POP and PUSH. 

3. Page zero memory locations 50-7F (hex) are 
not reserved by the system and can be used 
in user-written assembler routines. 



B. Assembling the source file 

The assembler is invoked by typing "A" in 
response to the system prompt line. In order for 
this selection to be valid, one of the disk drives 
must contain a disk that includes the files 
SYSTEM.ASSMBLER and 6500.OPCODES. These 
files are located on the PASCAL2: disk for mini 
disk systems and on the standard PASCAL: disk 
for 8" systems. (Note: Section 4.2 of the UCSD 
Supplemental User's Document for Ohio Scientific 
users describes some alternate disk configura- 
tions for mini floppy disk users. The disk labeled 
#5 Disk 1 should include the file 6500.OPCODES.) 

The following steps will assemble PEEKPOKE. 
TEXT to the code file PEEKPOKE.CODE. 

1. Use option N(ew in the filer to make sure the 
workfile is clear. Like the compiler, the 
assembler uses the workfile (if one is pres- 
ent) as its input file. 

2. Type "A" In response to the system prompt 
line and answer both of the queries "Assem- 
ble what text?" and "To what codefile?" by 
entering "PEEKPOKE". 

3. If you wish the console to display an 
assembled listing of the program during 
assembly enter "CONSOLE:" in response to 
the prompt "Output file for assembled 
listing:". Otherwise just enter a carriage 
return. 



C. Using POKEXT, PEEKEXT and SCREXT In a 
Host Pascal program 

The procedure and function declaration part of 
a Pascal program must include declarations for 
any assembly language routines which It uses. 
These declarations have the form of a procedure 
or function heading, followed by the keyword 
"EXTERNAL". The assembly routines in 
PEEKPOKE could be declared as follows: 



PROCEDURE POKEXT(MEMLOC,DATA:INTEGER); 
EXTERNAL; 

FUNCTION PEEKEXT(MEMLOC:INTEGER).INTEGER; 
EXTERNAL; 

PROCEDURE SCREXT(DATA,OPTION:INTEGER); 
EXTERNAL; 



These declarations identify these routines as 
assembly language routines and specify the 
parameters. In these procedures MEMLOC speci- 
fies a memory location for a POKE or a PEEK. This 
address must be expressed as a signed two's 
complement number between -32768 and 32767. 
For example, the address of the control register 
on the C4P and C8P at 56832 must be converted to 
-8704 = -(65536-56832). The parameter DATA 
in POKEXT denotes the value (in the range - 255) 
which is to be stored at MEMLOC. SCREXT fills 
the entire screen with the graphics character cor- 
responding to the value of DATA if OPTION = 0, 
otherwise it colors the entire screen with the color 
corresponding to the value of DATA. The C4P and 
C8P user's manuals include the appropriate 
character and color codes. 

Before a Pascal program which uses EXTERNAL 
procedures and functions can be run, it must first 
be complied. Then the EXTERNAL procedures and 
functions must be added to the code file with the 
LINKER (see section 1.6 of [3]). 

The following section describes UNIT 
SPECIALFEATURES which adds these and other 
routines to the system library. As pointed out in 
part one, linking Is automatic for routines placed 
in the system library. 



D. UNIT SPECIALFEATURES 

This section includes the text for a large unit 
containing procedures which control the color 
graphics and audio features of the C4P and C8P. 
Use the EDITOR to enter this unit and store it in a 
file named PLOTUNIT.TEXT. 
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C$L CONSOLE:*) 
UNIT SPECIALFEATURES; 
INTERFACE 
TYPE 

COLORS = ( YELLOW,INVYELLOW,RED,INVRED,GREEN,INVQREEN, 
OLIVE,INVOLIVE,BLUE,INVBLUE,PURPLE,INVPURPLE, 
SKYBLUE,INVSKYBLUE,BLACK,INVBLACK); 

VAR OPTIONSET: SET OF (SOUND,KOLOR,VID32 x32) ; 

PROCEDURE POKE ( MEMLOCDATA: INTEGER ) ; 

FUNCTION PEEK ( MEMLOC: INTEGER ) : INTEGER; 

PROCEDURE INITOPTIONS; 

PROCEDURE SOUNDON; 

PROCEDURE SOUNDOFF; 

PROCEDURE COLORON; 

PROCEDURE COLOROFF; 

PROCEDURE SCR32X 32; 

PROCEDURE SCR32X 84: 

PROCEDURE PLOTCHARACTER ( CHARNUM,XCOOR,YCOOR: INTEGER ) ; 

PROCEDURE ERASECHARACTER ( XCOOR.YCOOR: INTEGER ) ; 

PROCEDURE PLOTCOLOR ( COLOR:COLORS; XCOOR.YCOOR: INTEGER ) ; 

PROCEDURE ERASECOLOR ( XCOOR.YCOOR: INTEGER ) ; 

PROCEDURE FILLGRAPHICS ( CHARNUM: INTEGER ) ; 

PROCEDURE CLEARGRAPHICS; 

PROCEOURE FILLCOLOR ( COLOR:COLORS ) ; 

PROCEDURE CLEARCOLOR; 

PROCEDURE TONE ( FREQUENCY: INTEGER ) ; 

IMPLEMENTATION * 

CONST (• THESE ARE SPECIAL MEMORY ADDRESSES- 
INTEGER VALUES MUST BE EXPRESSED AS 
SIGNED TWO'S COMPLEMENT NUMBERS BETWEEN 
- 32768 and 32767 •) 



SCRTOP = - 12288; 
COLORTOP = -8192; 
CONTROLREGISTER = 
AUDIOPORT > -8447; 



•8704; 



VAR (• PRIVATE VARIABLES *) 
SCRLOCCOLORLOC.OPTIONCODE.XCOOR.YCOOR, 
AUDIOVALUE: INTEGER; 

(* EXTERNALLY ASSEMBLED PROCEDURE •) 
PROCEDURE POKEXT (MEMLOC1.DATA1: INTEGER) ; 
EXTERNAL; 

(• EXTERNALLY ASSEMBLED FUNCTION *) 
FUNCTION PEEKEXT (MEMLOC2: INTEGER) : INTEGER; 
EXTERNAL; 

(* EXTERNALLY ASSEMBLED PROCEDURE') 
PROCEDURE SCREXT (OPTION, DATA1: INTEGER) ; 
EXTERNAL; 

PROCEDURE POKE; (• PUBLIC VERSION OF POKE *) 
BEGIN 

POKEXT(MEMLOC.DATA) ; 
END; 

FUNCTION PEEK; C PUBLIC VERSION OF PEEK ') 
BEGIN 

PEEK: = PEEKEXT(MEMLOC) ; 
END; 



PROCEDURE SETOPTIONS; 



(• PRIVATE PROCEDURE TO SET 
OPTIONS BASED UPON CURRENT 
VALUE OF OPTIONSET •) 



BEGIN 

OPTIONCODE: = 1; 
IFVID32X32 IN OPTIONSET THEN 
OPTIONCODE:=OPTIONCODE- 1; 
IF SOUND IN OPTIONSET THEN 
BEGIN 

OPTIONCODE: = OPTIONCODE + 2; 
POKEXT(AUDIOPORT,1) ; 
END; 
IF KOLOR IN OPTIONSET THEN 
OPTIONCODE: = OPTIONCODE + 4; 
POKEXT(CONTROLREGISTER.OPTIONCODE); 
END; 

PROCEDURE INITOPTIONS; (* PUBLIC PROCEDURE, TURNS COLOR 
OFF, SOUND OFF, AND SELECTS 
32x64 DISPLAY MODE •) 
BEGIN 

OPTIONSET : = | ]; 
SETOPTIONS; 
END; 

PROCEDURE SOUNDON; 
BEGIN 

OPTIONSET := OPTIONSET + [SOUND]; 

SETOPTIONS; 
END; 



PROCEDURE SOUNDOFF; 
BEGIN 

OPTIONSET := OPTIONSET - [SOUND]; 

SETOPTIONS; 
END; 

PROCEDURE COLORON; 
BEGIN 

OPTIONSET := OPTIONSET + [KOLOR]; 

SETOPTIONS; 
END; 

PROCEDURE COLOROFF; 
BEGIN 

OPTIONSET := OPTIONSET - [KOLOR]; 

SETOPTIONS; 
END; 

PROCEDURE SCR32 x 32; 
BEGIN 
OPTIONSET := OPTIONSET + [VID32x32]; 
SETOPTIONS; 
END; 

PROCEDURE SCR32 x 64; 
BEGIN 

OPTIONSET : = OPTIONSET - [VID32x64]; 

SETOPTIONS; 
END; 



PROCEDURE PLOTCHARACTER; (" 



PUBLIC PROCEDURE, PLOTS 
SPECIFIED GRAPHICS CHAR- 
ACTER AT GIVEN SCREEN 
LOCATION •) 
BEGIN 

SCRLOC: = SCRTOP + (31 - YCOORC64 + XCOOR; 
POKEXT(SCRLOC.CHARNUM) ; 
END; 

PROCEDURE ERASECHARACTER; 
BEGIN 
PLOTCHARACTER(32,XCOOR,YCOOR) ; 
END; 

PROCEDURE PLOTCOLOR; (' PUBLIC PROCEDURE, PLOTS 
SPECIFIED COLOR AT GIVEN 
SCREEN LOCATION •) 
BEGIN 

COLORLOC: = COLORTOP + (31 - YCOORC64 + XCOOR; 
POKEXT(COLORLOC,ORD(COLOR)) ; 
END; 

PROCEDURE ERASECOLOR; 
BEGIN 

PLOTCOLOR(BLACK,XCOOR,YCOOR) ; 
END; 

PROCEDURE FILLGRAPHICS; (" PUBLIC PROCEDURE, FILLS 

ENTIRE GRAPHICS DISPLAY WITH 
SPECIFIED GRAPHICS CHARACTER ') 
BEGIN 

SCREXT(CHARNUM.O) ; 
END; 

PROCEDURE CLEARGRAPHICS; (* PUBLIC PROCEDURE, CLEARS 
ENTIRE GRAPHICS DISPLAY 
AREA •) 
BEGIN 
SCREXT(32,0) ; 
END; 

PROCEDURE FILLCOLOR; (" PUBLIC PROCEDURE, FILLS ENTIRE 
COLOR DISPLAY WITH SPECIFIED 
COLOR •) 
BEGIN 
SCREXT(ORD(COLOR),1) ; 
END; 

PROCEDURE CLEARCOLOR; (* PUBLIC PROCEDURE, CLEARS ENTIRE 
COLOR DISPLAY AREA •) 
BEGIN 
SCREXT(ORD(BLACK),1) ; 
END; 

PROCEDURE TONE; (* PUBLIC PROCEDURE, GENERATES SPECIFIED 
FREQUENCY USING TONE GENERATOR ") 
BEGIN 

AUDIOVALUE: = 
(24576 + FREQUENCY DIV 4) DlV (FREQUENCY DIV 2) ; 
IF AUDIOVALUE > 255 THEN AUDIOVALUE := 255; 
POKE(AUDIOPORT,AUDIOVALUE) ; 
END; 



CALL 1-800-321-6850 TOLL FRE 
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The following is a brief description of each of 
the public procedures in this unit: 

1. PROCEDURE POKE (MEMLOC.DATA: 
INTEGER); This procedure is essentially 
just the assembly procedure POKEXT 
described above, except that POKE is a 
"Pascal" program while POKEXT is an 
assembly routine. 

2. FUNCTION PEEK(MEMLOC:INTEGER): 
INTEGER; Same as above for PEEKEXT. 

3. PROCEDURE INITOPTIONS: Initializes the 
options on the C4P and C8P, turns the col- 
or and sound off, and selects the 32x64 
display mode. 

4. PROCEDURE SOUNDON; PROCEDURE 
SOUNDOFF; Turn the sound option on and 
off. 

5. PROCEDURE COLORON; PROCEDURE 
COLOROFF; Turn the color option on and 
off. 

6. PROCEDURE SCR32x32; PROCEDURE 
SCR32x64; Alternate between the 32x32 
and 32x64 display mode. 

7. PROCEDURE PLOTCHARACTER 
(CHARNUM,XCOOR,YCOOR:INTEGER); 
Plots the graphics character correspond- 
ing to the value of CHARNUM at the 
screen location with coordinates 
(XCOOR.YCOOR) relative to the lower left 
hand corner of the screen. 

8. PROCEDURE ERASECHARACTER 
(XCOOR.YCOOR); Erases the graphics 
character currently stored at screen loca- 
tion (XCOOR.YCOOR). 

9. PROCEDURE PLOTCOLOR(COLOR: 
COLORS;XCOOR,YCOOR:INTEGER); Plots 
the specified COLOR at screen location 
(XCOOR.YCOOR). (Note: Type COLORS is 
an enumerated type containing the names 
of all the colors available on the C4P and 
C8P. COLOR can have values such as 
YELLOW, INVYELLOW, RED, etc.) 

10. PROCEDURE ERASECOLOR (XCOOR, 
YCOOR); Erases the color currently stored 
at screen location (XCOOR, YCOOR). 

11. PROCEDURE FILLGRAPHICS 
(CHARNUMMNTEGER); PROCEDURE 
CLEARGRAPHICS; Allow the graphics 
display to be filled with the graphics 
character corresponding to CHARNUM or 
to be cleared. 



12. PROCEDURE FILLCOLOR(COLOR: 
COLORS); PROCEDURE CLEARCOLOR; 
Allow the entire screen to be colored the 
specified COLOR or changed to BLACK. 

13. PROCEDURE TONE (FREQUENCY: 
INTEGER); Uses the tone generator to 
generate a tone of the specified 
FREQUENCY. 



E. Adding UNIT SPECIALFEATURES to the system 
library. 

Before this unit can be added to the system 
library it must be compiled. This unit is fairly long 
and will not compile in the 48K of memory 
available on the C4P and C8P computers with the 
standard memory configuration. Section 5 of [4] 
describes techniques which can be used to free 
up more memory space. The SPECIALFEATURES 
unit can be compiled if the soft buffer handlers 
and the screen handlers are changed from 
memory resident to disk resident. To do this type 
"8" for S(ystem State in response to the command 
prompt line. Then enter the sequence 
"B","D","C","D","Q". Keyboard response follow- 
ing these changes is extremely sluggish, but 
larger programs can be compiled. (The original 
system state can be restored by selecting "S" and 
then entering the sequence "B","M","C", 
"M","Q".) Make these changes and then compile 
the contents of PLOTLINIT.TEXT to the codefile 
PLOTUNIT.CODE. 

The utility program LIBRARY.CODE should 
now be used as described in part one to create a 
NiEW.LIBRARY. This will include the contents of 
the current SYSTEM.LIBRARY, PLOTUNIT.CODE 
and PEEKPOKE.CODE. Once the NEW. LIBRARY 
has been created, the old SYSTEM.LIBRARY 
should be renamed OLD.UBRARY, and the 
NEW. LIBRARY should be designated as 
SYSTEM.LIBRARY. 



(To be continued) 
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DID YOU KNOW THAT PEFXINGS II... 

• is devoted exclusively to reviewing software for the APPLE II ? 

• contains reviews of all types of software offerings ? 

• contains about 20 valuable reviews per issue? 




A mere $15 for six issues/ year" 

DEALERS INQUIRIES INVITED 
* Foreign orders add SIS for Air Mall 



PEELINGS II 

945 Brook Circle Dept. M 
Las Cruces, NM 88001 

Tel. 605 / 5264364 • Evenings 






The Most Powerful Disk-Based 
Macro Assembler/Text Editor 
Available at ANY Price 



Now Includes the Simplified Text Proeittor (STP) 

41 K APPLE II 
— OR— or APPLE 11 + 
and DISK II 



For 32K PET, disk 
3.0 or 4.0 ROMS or 
8032 (ipielfy) 



MAE FEATURES , , , 

— Control Flits for Assembling Multiple named touret files 
from disk 

— Sorted Symbol table — UP to 31 chars./labal 

— 27 Commands, 26 Ps«iido-ops, 3S Error Codas 

— Macros, Conditional Assembly, and a naw faatura wt developed 
called interactive Assembly 

— Relocatable Object Code , ., 

— String search and replace, move, copy, automatic line 
numberlm.etc. 

STP FEATURES 

— 17 text processing macros 

— Riant and left justification 

— Variable page lengths and widths 

— Document size limited only by disk capacity 

— Software lower case provision for APPLE II without lower 
case modification 

ALSO INCLUDED 

— Relocating Loader 

— Sweet IS macro library for APPLE and PET 

— Machine Language macro library 

— Sample files for Assembly and text processing 

— Separate manuals for both APPLE and PET 

PRICE 

— MAE, STP, Relocating Loader, Library files, 5ft page manual, 
diskette — $16».»S 

SEND FOR FREE DETAILED SPEC SHEET 

EASTERN HOUSE SOFTWARE 

323S LINDA DRIVE 
WINSTON-SALEM, N. C. 2710S 



(91») S24-2SSS 



(S1») 74S-844S 




NOW, GET THE 



OS-65D V3.2 
DISASSEMBLY 

MANUAL 



1 50 pages of Disassembly 
listings in standard 
Assembler format 

i Fully commented 
code -Mot another 
useless program listing 

i All routines included 
PLUS, 

1 10 pages of Cross 
Reference listings -A 
complete, computer- 
generated concordance 

$24.95 



We have lots of other great 
products too, all forOSI 
users. Write or call today for 
our complete catalog. 
Dealer inquiries welcome 
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OFTWAPE 
QN8ULTANT8 



L 



7053 Rose Trail 
Memphis, m 38134 
901/377-3503 
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By Paul Geffen 

OS-65D V3.2 Disassembly Manual 

Software Consultants of Memphis, 
Tennessee, has produced one of the 
most useful pieces of documentation 
available for OSI floppy disk systems. 
Two perennial problems with Ohio 
Scientific small systems have been a 
poor disk operating system and poor 
documentation. This makes most 
assembly language programming very 
difficult. The user's manuals provide 
some information on how to use the 
DOS, but this material is scattered and 
sketchy, and does not give the assem- 
bler programmer what he really needs, 
which is a listing of the programs. 

Software Consultants produces 
system software for OSI computers and 
so had to solve these problems. The 
result is a sixty-page book which con- 
tains a complete source for the kernel 
of OS-65D (not disk BASIC or the 
Assembler-Editor-Debugger) . They 
claim to have spent 500 hours dis- 
assembling and studying this program, 
and the results were worth the effort. 
This disassembly is well commented 
and includes a cross-referenced symbol 
table. 

Now a programmer can interface his 
own software directly to the DOS 
without having to spend weeks search- 
ing and deciphering the often 
mysterious techniques used in OS-65D. 
I feel that the availability of this infor- 
. mation enhances the value of OSI small 
systems by allowing more powerful and 
efficient software to be written for 
these machines. This book is not, and 
does not claim to be, a guide to the 
DOS or an overview of it. It is only a 
listing of the source code for the 
program. 

Software Consultants markets the 
following software for OSI disk 
systems: a cross-reference utility for 
BASIC programs, a Spooler/ Despooler 
utility, a FIG Forth and a video routine. 
All run under OS-65D and/or other 
operating systems, and source code is 
available for all products. 



Extended Monitor ROM 
for Superboard and OP 

The system monitor which OSI pro- 
vides with the 600 board is a "glass 
teletype" program which doesn't even 
backspace. This seems out of place on a 
video-based machine where it would be 
nice to be able to move the cursor 
around and edit lines. And the machine 
level support is limited to five com- 
mands [Address mode, Data mode, 
Increment address, Load from tape and 
Go). This is only a little more useful 
than a programmer's panel consisting 
of lights and switches. Of the various 
alternatives available from indepen- 
dent sources, the only one I have tried 
is the BUSTEK Extended Monitor. 

This is a 2K ROM which provides 
enhanced machine level support as 
well as a screen editor. The eleven 
machine level commands include Save 
to tape, Load from tape, Output (sets 
the save flag), Input (sets the load flag), 
Go, Register display, a block move, 
commands to display a block of 
memory on the screen, and load 
memory from the screen, and a hexa- 
decimal calculator. 

The screen editor provides a win- 
dow, which allows portions of the 
screen to be protected from being over- 
written or scrolled. The shift keys work 
normally as does the RUBOUT key. 
The REPEAT key allows data to be read 
from the screen into the BASIC input 
buffer. ESCAPE codes provide cursor 
up, down, left, right and home as well 
as clear to end of line and clear to end of 
screen. 

Control characters move the cursor 
to the beginning or end of a line, insert 
or delete characters, cancel line and 
provide a graphics mode, a find 
character function and a pause during 
output. 

The program does have a few prob- 
lems. The most serious is the fact that 
there is no disk bootstrap. It was left 
out to make room for the extended 
monitor functions. This ROM can be 
used only on cassette-based systems. 
Also, the delete character function 
assumes a 72-character line and is 
meant to be used only on. the last line of 
the display. And the insert character 
key can overflow the input buffer and 
cause the system to crash. These prob- 
lems are all due to lack of space —"the 
ROM is entirely filled with cade. 

The documentation for this product 
is very good. The 19-page user's 
manual contains complete operating 



instructions with numerous examples. 
In addition, it includes the addresses of 
22 subroutines within the monitor and 
a map of the memory it uses. A com- 
plete source listing is available at extra 
charge. This listing has few comments 
and no cross-reference table. 

Other monitor ROMs with improved 
features include the C1E and CIS 
ROMs from Aardvark, as well as a 
monitor ROM by David Anear which is 
available from OMEGA, an OSI user's 
group in Australia. 

OMEGA publishes a newsletter 
with much hardware and software ad- 
vice as well as short programs. The 
81/1 issue contained OS65D notes, a 
single drive copier in BASIC, a batch 
mode program which puts a series of 
commands in memory and then ex- 
ecutes them, and a program to allow 
named cassette files. Subscriptions are 
$6/year surface and $12 air mail. For 
more information, contact: 

Geoff Cohen 
72 Spofforth St. 
Holt, ACT, 2615 
Australia 



The following user's groups have 
recently sent me newsletters, and other 
information. 

The Boston Computer Society has 
an OSI User's Group which meets on 
the third Thursday of each month at 
the Polaroid cafeteria in Cambridge, 
near MIT. Their newsletter is now five 
issues old and appears monthly. Write 
to Len Magerman, Dept. 761, 565 Tech 
Square - 5A, Cambridge, MA 02139 for 
more information. 

About a year old, the OSI North 
Coast User's Group, OSINC, based in 
the greater Cleveland area, has formal 
ties with Ohio Scientific. The second 
issue of their newsletter contains a 
short "dumb" terminal program for the 
C4P by Aurora Software Associates. 
Contact President Lei Somogyi, 
OSINC, Three King James South, Suite 
140, 24600 Center Ridge Road, 
Westlake, Ohio 44145. Membership is 
$20 for one year. 

Ohio Scientific Users of New York 
(OSUNY) publishes OSI-tems, now in 
its fourth year, and one of the largest 
OSI newsletters. Their recent special 
hardware issue ran thirty pages. Write 
to Tom Cheng, 26 Madison St., Apt. 41, 
New York, New York 10038 for more 
information. 



No. 37 -June 1981 



MICRO -The 6502/6809 Journal 



95 



f 



ii 



96 



consumer 
computers 



| V» ««wpt itm* aofo» «w«t ouih 




fotewly Compuf*n %' V* \ 



TELEX 695-000 Ans. "Beta" Attn. "CCMO" 



OPEM EVERY DAY 9 to 6 PST 

California, Alaska & Foreign orders (714) 698-4088 

Shipping Information or Dockorders coll (714) 698^260 

Service Center and for Technical Information (714) 460*6502 



moil order 



ORDER TOLL FREE 

600-654-6654 
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tippkz computer 

" Authorized Dealer 



ALL EQUIPMENT IS 
FCC APPROVED 



APPLE II PLUS 16K 1049 

APPLE II PLUS 48K 

(APPLE Memory) 1 1 69 

APPLE II Stondord Models. . . CALL 
DISK II DRIVE & CONTROLLER . 529 

This model includes DOS 3.3 16 sector 

TOf FIVE SELLERS 

Language System W/Pascal 425 

Silentype Pnnter W/lnterface 549 

Hayes Micromodem II 319 

Videx Videoterm 80 w/grophics 335 

Z-80 Microsoft Cord 299 

APPLE COMPUTER MC. 

Disk II Drive Only 445 

Integer or Applesoft II Firmware Cord ... 155 

Graphics Tablet 649 

Parallel Printer Interface Card 155 

Hi-5peed Serial Interface Cord 155 

Smorterm 60 Column Video Card 335 

MOUMTAIM COMPUTER IMC. 

Music System (16 Voices) 479 

A/D + D/A Interface 319 

Expansion Chassis 555 

lmrol/X-10 System 249 

Clock/Calendar Card 239 

Supertolker SD-200 249 

Romplus + Cord 1 35 

ftomwriter Card 155 

CALVORMA COMPUTER SYSTEMS 

Clock/Calendar Module 1 09 

GPIO IEEE-488 Cord 259 

Asynchronous Serial Interface Card 1 29 

Centronics PoroKel Interface Card 99 

We carry oil CCS hardware. Please colt 

MISC. APPLE HARDWARE 

1 6K Rom Card Microsoft 1 89 

ABT Numberic Keypad(old or new kybrd) .115 

ALF 3 Voice Music Cord 229 

Alpha Syntouri Keyboard System 1399 

Corvus 1 0MD Hard Disk CALL 

Lazer Lower Cose Plus 50 

Micro- Sci Disk Drives CALL 

5SM AtO Serial/ParaHel Card A&T 189 

Sup-R-Terminal 80 Col. Card 339 

SVA 8 inch Floppy Disk Controller 345 

Versawriter Digitizer Pad 229 

WE HAVE MAMY MORE ACCESORHS 

FOR THE APPLE I M STOCK— 

PUASE CALL OR WRITE FOR A PRICE LIST. 



A 

ATARI' 

MODEL 

600 16K 

$ 799 
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Atari 400 16K 499 

810 Disk Drive 499 

410 Program Recorder 69 

850 Interface Module 175 

822 Thermo! Printer (40 col) 369 

825 Prime- (80 col) 795 

Atari 1 6K Ram Module 1 55 

Atari Light Pen 65 

W» nock all Atari accauarin 6 
software, ploaf* call for mora info. 



PRINTERS 



Anadex DP-9500 W/2k Buffer 1375 

Anadex DP-9501 W/2K Buffer 1450 

C. Itoh Storwriter25 CPS 1750 

C. Itoh Storwriter 45 CPS 2450 

Centronics 737 825 

Epson MX-70 W/Grophics 449 

Epson MX-30 132 Col 620 

Paper Tiger IDS-445 W/Dot Plot 749 

Poper Tiger IDS-460 W/Dot Plot 1 195 

Paper Tiger IDS-560 W/Dot Plot 1495 

Qume Sprint 5/45 Daisywheel 2550 

Silentype w/lnterface for Apple ft 549 

Watonabe Digiplot 1 295 

VIDEO MONITORS 

Amdex/Leedex Video-100 12" BGW. ... 139 

Hitachi 13" Color 389 

NEC 12" P31 Green Phospher...., CALL 

Ponacolor 10" Color 375 

Sonyo 9" [l&W 1 79 

Sanyo 12" B&W 255 

Sonyo 1 2" P31 Green Phospher 295 

Sonyo 13" Color 445 



Challenger 4P 699 

C4PMF (Mini Floppy System) . 1 599 

OP Model II . 449 

Sargon II (Disk or Cassette). .35 
Fig Forth (Disk Only) 69 

APPLE SOFTWARE 

DOS Toolkit 65 

Appleplot 60 

Tax Planner 99 

Apple Writer 65 

Apple Post 45 

D.J. Portfolio Evoluator 45 

D.J. News & Quotes Reporter 85 

Apple Fortran 1 65 

Apple Pilot 129 

DOS 3.3 Upgrade 49 

Music Theory 45 

The Controller Bus. Sys 519 

MISC. APPLICATIONS PACKAGES 

Visicolc 125 

Desktop Plan II 169 

CCA Data Management DM5 85 

Easywriter Word Processor 225 

ASCII Express 65 

Super Text II 139 

Programma Apple Pie 119 

The Landlord Apt. Mgmt. Pkg 649 

Peochtree Business Software CALL 

Tax Preparer by HowardSoft 89 

Applebug Assem/Disassm/Edttor 75 

3-D Graphics Dy Dill Budge 53 

4AMES 

Flight Simulator 34 

The Wizard and The Princess 32 

Cosmos Mission (Space Invaders) 24 

Sargon H Chess 32 

Hi-Res Football 39 

Adventure by Microsoft 27 

Phantoms Five 39 

Reversal (Othello) 34 

PLEASE CALL OR WRITE 
FOR A COMPLETE 
SOFTWARE LIST. 



ORDERING INFORMATION: Phone Orders invited using VISA. MASTERCARD. AMERICAN EXPRESS. DINERS CLUD. CARTE BLANCHE, or bonk wire transfer Credit 
cards subject to service charge, 2% for VISA 6 MC. 5% for AE. DC 6 CD. Mail Orders may send credit card account number (include expiration dote), 
cashiers or certified check, money order, or personal check (allow 10 (Joys to clear). Pleose include a telephone number with all orders. Foreign orders (excluding 
Military PO's) add 10% for shipping all funds must be in U.S. dollars. Shipping, ho/idling and insurance in U.S. odd 3% (minimum $4.00). California 
residents odd 6% sales tox. We accept COD's under &500. OEM's. Institutions & Corporations pleose send for written quotation. All equipment is subject to 
prke change and availobility without notice. All equipment is new and complete with manufacturer worranty (usually 90 days) We connot guarantee 
merchant ibility of any products. We ship most orders within 2 days. 

WE AM A MEMBER OF THE BETTER BUSINESS BUREAU AND THE CHAMBER OF COMMERCE 
SHOWROOM PRICES MAY DIFFER FROM MAN. ORDER PRICES. 
_ PLEASE SEHD ORDERS TO: 

CQWSBMER COMPUTERS MAH. ORDER M<4 PARKWAY DRIVE, GROSSMQWT SHOPPIWO CEWTER NORTH LA MESA CALIF. 9204 i 
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AIM 65 RS-232 Interface 



<i 



An optoisolated full duplex 
20mA to RS-232 interface board 
is available, which can easily be 
installed with the addition of a 
±12 VDC source. Electrical 
connection to/from a standard 
RS-232 connector is shown, and 
several hardware and software 
possible problem areas are 
discussed. 



Table 1: Connection Table 



James Guilbeau 

6644 Louis XIV Street 

New Orleans, Louisiana 70124 



The AIM 65 computer can easily be 
adapted to add an RS-232 data interface 
at the 20 mA teletype connections. 
This will allow two-way data com- 
munication (without handshaking 
signals} for a total cost of about $25. A 
±12 VDC supply is required as well as 
four wires to the application connector 
Jl. If the AIM already has ±12 VDC, 
and if a 20 mA teletype would never be 
used, the data interface board [1VS 
inches square) can be mounted inter- 
nally with seven wires soldered directly 
to the computer board. 

A duplex RS-232 interface |data 
in/out only) can be added to the Jl 
application TTY connections without 
modification of the computer. The 
baud rate is selectable from as low as 
110 to as high as 2400 baud. The com- 
puter can determine and save the baud 
rate automatically, on initialization of 
TTY port, with a series of delete or 
rubout characters. 

The baud rate can also be manually 
set by loading hex locations $A417 
(baud rate) and $A418 (delay) as 
described in the AIM 65 computer 
manual. However, the baud rate can be 
reset under program control if incom- 
ing data on the serial TTL port was also 
initiated by the program. At any one 
time both the serial TTL/RS-232 and 
the 20 mA TTY/RS-232 are at the same 
baud rate. 
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-12V 
+ 12V 
Printer 
Keyboard 
Printer 

+ 5V 
Keyboard 

+ 24V 
Ground 
Data in 
Data out 



AIM 65 
-Jl 

22 
N 
U 
T 



R 

1 



7901A RS-232 

1 
2 
4 
6 



10 
9 
3 



7 return 
3 receive 
2 transmit 



EIA standard RS-232-C provides the 
electronics industry with the ground 
rules necessary for independent 
manufacturers to design and produce 
both data terminal and data com- 
munication equipment that conforms 
to a common interface requirement. As 
a result, a data communications 
system can be formed by connecting an 
RS-232-C data terminal to an RS-232-C 
data communication peripheral (such 
as a TTY, MODEM, computer, etc.) 

The RS-232-C is a hardware stan- 
dard which guarantees the following: 

1. Each device on RS-232-C will 
use a standard 25-pin connector 
which will mate to another stan- 
dard 25-pin of opposite sex. 

2. No matter how the cables are 
connected, no smoke or damage 
will occur. 

3. The data and handshake lines 
will each be given a specific 
name. 

4. The RS-232-C standard calls out 
the interface on one end of the 
cable to be designated as a ' 'Ter- 
minal" and the interface on the 
other end is "Data Communica- 
tion Equipment. "The standard 
defines the data handshake 
signals on each pin of the con- 
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nector for the "Data Com- 
munication Equipment" and the 
"Terminal." 

RS-232-C terminals and data com- 
munications equipment are not always 
hardware compatible. For example, the 
two instruments must share one of the 
features from each of the following 
characteristics: 

1. Timing Format — asynchronous. 

2. Transmission Mode-Simplex, 
(serial input) or full duplex (TTY 
I/O). 

3. Baud Rate (bits per second)— 
110, 150, 300, 600, 1200. 

4. Bits per character (7), bits per 
word (11). 

5. Parity Bit— low (not used). 

EIA voltage levels are: 1, mark, or 
OFF =-25 to -3 VDC; 0, space, or 
ON= +3 to +25 VDC. 

In serial communications, data 
signals usually come from one pair of 
lines: additional lines sometimes pro- 
vide controller handshake or busy 
signal— used to delay data transmission 
until the device can handle that data. 
The data and handshake lines in 
RS-232-C send information uni-direc- 
tionally (simplex); that is, one end of a 
cable transmits data or handshake and 
the other end receives data or hand- 
shake. Care must be taken to insure 
that each wire in RS-232-C has the 
appropriate transmitter and receiver 
combination. Transmitters connected 
to transmitters, and receivers con- 
nected to receivers, provide no data 
communication. 

To alleviate this problem, care must 
be taken to ensure that the RS-232-C 
cable is correct for the application. One 
of the ambiguous areas in an RS-232-C 
connection is the use of pin 2 for 
transmitted data (TD) and pin 3 for 
received data [RDJ. The confusion 
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AIM 65 

APPLICATION J1 -- 



20 mA/RS232 CONVERTER 



+ 12 VOLTS 



GROUND 



PRINTER 20 mA 



-12 VOLTS 



NO 

I 
I 

1Q 



10 



•NOTE: 
CHANGE TO 
2.2K 1 / 2 W 



"7 

+ s<y- 
i 
i 

-uO- 



-vw- 

270 _n_ 



KEYBOARD 20 mA 



22 Ot- 

i 
l 
i 
i 

+ rQ- 

i 
i 

-tOt- 




2N2221 




RS-232 
(DB25S- 
-0 2 TRANSMIT 
I 



I 

10^7 RETURN 

I 



vw — 6 



3 RECEIVE 



Electronic Systems, Inc. 

P.O. Box 21638 

San Jose, California 95151 



Part #7901 A 



arises in a simplex or half-duplex con- 
nection, where pin 2 at one end of the 
line, must go to pin 3 at the other end, 
and vice versa; this pin transposition 
can be handled in the cable itself or at 
either connector. 

RS-232-C Cable Application Com- 
patability Test: Measure voltage at pins 
2 and 3 with ground lead connected to 
pin 7. 



Perform Test 
Connected: 



With No Cables 



"TERMINAL " (AIM 65), 
pin 2 <-3V Pin3 
pin 7 GROUND. 



to + 2V 



"DATA COMMUNICATIONS 
DEVICE" (MODEM), 

pin2 0to+2V pin3 <-3V 
pin 7 GROUND. 

If the computer -is going to be "used 
with various kinds of equipment, such 
as a printer, a modem or another com- 
puter, a double-pole, double-throw 
(DPDT) switch can be installed from 



pins 2 and 3 to reverse the data connec- 
tions for the specific application. 

This RS-232 installation has no pro- 
vision for the "handshake" lines such 
as Clear to. Send, Data Set Ready, Busy, 
etc. If these lines cannot be ignored or 
by-passed, an additional TTL/RS-232 
interface can be used with a Peripheral 
Interface Adapter (PIA) and an 
assembly language routine to recognize 
the signals. 

This works fine on paper. However, 
in practice, the user must be aware of 
the subtleties of serial binary data 
interchange to ensure that any two 
pieces of RS-232-C equipment will be 
compatible. 

There are no software standards 
associated with RS-232-C. Many types 
of communicadon protocols serve RS- 
232-C systems. One protocol uses 
USASCII code STX (start of text) to 
precede data and ETX (end of text) to 
follow data transmission. Another uses 
USASCII ACK to acknowledge message 
receipt, and NAK to indicate no 
acknowledgement. This ACK/NAK 



combination is usually found in polling 
computer configurations. (STX, ETX, 
ACK and NAK are nonprinting 
characters, for "handshaking" or con- 
trol only.) "" 

20 mA/RS-232 optoisolated adapter 
with parts costs $15.00 (7901A) from 
Electronic Systems, P.O. Box 21638, 
San Jose, CA 95151. Not included: 

10 contact PC connector: Cinch 

50-10A-20 $3.00 (#10P) 

25 contact RS-232 female : Cinch 

DB25S $5.50 

Locking screws (2 each) : Cinch 

D20418-2 60<t 

For receiving RS-232 data only, a 
TTL/RS-232 adapter can be connected 
to the serial TTL input. TTL/RS-232 
adapter with parts costs $10.00 (#232 A). 



Note: Portions of the above discus- 
sion were extracted from John Fluke 
Mfg. Co. application bulletin #B0101. 
Used with permission. JUQJO 
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Real Time Clock 
for Super board 



• 



I 



By providing a brief pulse once 
each second to the Superboard 
and implementing this short 
program, the computer will 
maintain and display real time in 
a background mode. 



James L. Mason 
34 Farmington Drive 
Jacobus, Pennsylvania 17407 



After receiving a fuel oil bill for heating 
my home, I decided to monitor how 
long my furnace ran, the outside 
temperature, and the inside 
temperature. By taking the average 
temperature difference between inside 
and outside, and knowing how long the 
furnace ran over a 24 hour period 
(therefore the quantity of oil consumed), 
I could determine the heat loss of my 
house. I could then compute the cost 
effectiveness of different means to 
reduce heat loss. 

I wanted the computer to monitor 
all these parameters and, therefore, I 
needed two temperature sensors with 
A/D converters and a real time clock 
by which the computer could keep 
track of elapsed time. My main pro- 
gram would run in BASIC for ease of 
number crunching, while the real time 
clock would run in the background. In 
order to accomplish this, the Real Time 
Clock [RTCJ software would be inter- 
rupt driven. 

My first task was to figure out how 
to interrupt the Superboard. OSI's 
documentation did not tell me how to 
do this, so I turned to MOS Tech- 
nology's 6500 programming and hard- 
ware manuals. These books are ex- 
tremely well written and I consider 
them essential for truly understanding 
how the computer works. 

Applying a low true interrupt pulse 
to the Superboard' s IRQ input is done 
at pin 2 of the expansion connector, Jl. 



CHEAP, SIMPLE , NOT VERY ACCURATE 

L 

l tier J 



555 

® SUBJECT TO POWER LINE NOISE 
© BEST 



izi 



20 , SEC 



LOW 
VOLTAGE AC 



4-10 



20 f. SEC 

in 



60HJ . „ , 

TIME { □ 
BASE ' 



MM 
5362 



-HO 



20*SEC 



Figure 1: Sources of One Second Interrupt Pulses 



The pulse must be long enough so that 
the processor will detect the interrupt, 
yet shorter than the interrupt routine 
so that the routine won't be executed 
twice for the same pulse. I chose a 
pulse width of 20 microseconds, which 
was generated by one-half of a 74123 
one-shot. Ballpark values for the 
resistor and capacitor are 20K and .002 
uf respectively. I triggered the one-shot 
at one second intervals. See figure 1 for 
possible sources. 

At this point if you attempt to inter- 
rupt the processor through the IRQ in- 
put, nothing will happen. This is 
because after a restart (whenever the 
"BREAK" key is pressed), initializa- 
tion of 6502 automatically masks out 
the IRQ pin by setting the interrupt 
disable bit. We must clear this bit to 



use the IRQ input. This is done by ex- 
ecuting the machine language instruc- 
tion $58 (clear interrupt disable). I did 
this from BASIC by means of a USR 
function to call the short machine 
language subroutine: 



LOCATION 


HEX CODE 


MNEMONIC 


0900 


58 


CLI 


0901 


60 


RTS 



The USR vector is defined by the con- 
tents of locations 11 and 12 (decimal), 
therefore location 1 1 was POKEd with 
and location 12 was POKEd with 9. 
Now upon execution of the BASIC in- 
struction, X = USR(X), a low pulse ap- 
plied to the IRQ pin will cause an inter- 
rupt. But to where? The IRQ vector is 
stored in ROM and therefore could not 
be changed to point directly to my RTC 
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subroutine. However, the vector does 
point to a location in RAM in page one 
of memory that was unused according 
to the IP memory map. The IRQ vector 
points to location $01C0, so in $01C0, 
$01 CI, and $01 C2 I POKEd a machine 
code instruction which causes an un- 
conditional jump to my program: 



LOCATION HEX CODE 
01 CO 4C 

01 C1 02 

01C2 09 



MNEMONIC 

JMP 

(lo byte) 

(hi byte) 



To use BASIC to install this: 

POKE 448,76 
POKE 449, 2 
POKE 450, 9 

Next, I wrote the machine language 
program which acted like a "software" 
counter (see figure 2). Every time the 
subroutine is called, a memory location 
representing the number of least 
significant seconds is incremented. If 
the least significant seconds ' amount 
becomes greater than an ASCII 9 ($39), 
the most significant will be in- 
cremented and tested for an ASCII 6 
($36) an d on down the line, thus form- 
ing a 24-hour software clock. 

I thought it would be nice to have 
the time constantly displayed on the 
screen, but what about scrolling? If you 
put anything in video memory, it gets 
scrolled up the screen whenever a car- 
riage return is performed. Luckily, the 
last line of the screen does not get 
scrolled. So I put the clock (6 digits 
plus 2 colons] in the last 8 locations of 
video memory. 

Whenever entering an interrupt 
routine, it is good practice to save the 
working registers, execute the interrupt 
routine, restore the registers and finally 
return from the interrupt. I chose to 
push the registers (A, X, Y) on the 
stack. The return address and processor 
status are automatically saved by the 
6502. 

To put it all together, I used BASIC 
to load the machine code by reading a 
data file and POKEing. To set my USR 
and interrupt vectors POKEing was 
used again. A BASIC INPUT command 
was used to obtain the correct time and 
the hours, minutes and seconds were 
then POKEd into the video locations. 
Finally, the USR function would be ex- 
ecuted to enable the interrupts to take 
effect. See figure 3. 

After running the BASIC real time 
clock program and the time is satisfac- 



Figure 2: Machine Language 


Routine. 




0800 




************************ 




oeoo 




* 




* 




0800 




* REAL TIME CLOCK * 




0800 




* INTERRUPT SUBROUTINE * 




0800 




* FOR OSI SUPERBOARD * 




0800 




* 




* 




0800 




* 


BY JIM MASON * 




0800 




* 




* 




0800 




************************ 




0800 




* 








0800 


ZERO 


EPZ 


$30 




0800 


SIX 


EPZ 


$36 




0800 


COLON 


EPZ 


$3A 




0800 


FOUR 


EPZ 


$34 




0800 


TWO 


EPZ 


$32 




0800 












0800 


LSS 


EQU 


$D39B 




0800 


MSS 


EQU 


$D39A 




0800 


LSM 


EQU 


$D398 




0800 


MSM 


EQU 


SD397 




0800 


LSH 


EQU 


SD395 




0800 


MSH 


EQU 


SD394 




0800 












0900 






ORG 


$900 




0900 






OBJ 


$800 




0900 












0900 


58 IRQEN 


CLI 




;CLEAR INTERRUPT DISABLE BIT 


0901 


60 




RTS 






0902 












0902 


48 START 


PHA 






0903 


8A 




TXA 






0904 


48 




PHA 






0905 


98 




TYA 






0906 


48 




PHA 






0907 


A93A 




LDA 


#COLON 




0909 


A236 




LDX 


#SIX 




090B 


A030 




LDY 


IZERO 




090D 


EE9BD3 




INC 


LSS 


; INCREMENT SECONDS 


0910 


CD9BD3 




CMP 


LSS 


;TEST FOR >9 


0913 


D048 




BNE 


RETURN 




0915 


8C9BD3 




STY 


LSS 


;SET LSS TO ZERO 


0918 


EE9AD3 




INC 


MSS 


.•INCREMENT TENS/SECONDS 


091B 


EC9AD3 




CPX 


MSS 


;TEST FOR =6 


091E 


DO 3D 




BNE 


RETURN 




0920 


8C9AD3 




STY 


MSS 


;SET MSS TO ZERO 


0923 


EE98D3 




INC 


LSM 


; INCREMENT MINUTES 


0926 


CD98D3 




CMP 


LSM 


;TEST FOR >9 


0929 


D032 




BNE 


RETURN 




092B 


8C98D3 




STY 


LSM 


;SET LSM TO ZERO 


092E 


EE97D3 




INC 


MSM 


; INCREMENT TENS/MINUTES 


0931 


EC97D3 




CPX 


MSM 


;TEST FOR =6 


0934 


D027 




BNE 


RETURN 




0936 


8C97D3 




STY 


MSM 


;SET MSM TO ZERO 


0939 


EE95D3 




INC 


LSH 


; INCREMENT HOURS 


093C 


A234 




LDX 


IFOUR 




093E 


EC95D3 




CPX 


LSH 


;TEST FOR =4 


0941 


FOOD 




BEQ 


HRS20 




0943 


CD95D3 HRDD 


CMP 


LSH 


;TEST FOR >9 


0946 


D015 




BNE 


RETURN 




0948 


8C95D3 




STY 


LSH 


;SET LSH TO ZERO 


094B 


EE94D3 




INC 


MSH 


/INCREMENT TENS/HOURS 


094E 


100D 




BPL 


RETURN 




0950 


A232 HRS20 


LDX 


#TW0 




0952 


EC94D3 




CPX 


MSH 


;TEST FOR =2 


0955 


D0EC 




BNE 


HRDD 




0957 


8C95D3 




STY 


LSH 


;SET LSH TO ZERO 


095A 


8C94D3 




STY 


MSH 


;SET MSH TO ZERO 


095D 


68 RETURN 


PLA 






095E 


A8 




TAY 






095F 


68 




PLA 






0960 


AA 




TAX 






0961 


68 




PLA 






0962 


60 




RTS 




;DONE 



torily ticking away, you can do a 
"NEW" command. The RTC will re- 
main in the background while you 
write or execute new BASIC programs. 

I have found three distinct problems 
of concern when using the present con- 
figuration: First, since the machine 
language program is in RAM, it is possi- 
ble for it to be: overwritten as BASIC 
consumes more and more workspace. 
To prevent this, limit your BASIC 



memory size during the cold start. 
Second, recall that when the "BREAK" 
key is pressed, the interrupt disable flag 
will be set and your display cleared. 
Therefore, if you hit BREAK you must 
re-enable the interrupts, as described 
above. 

Lastly, the target of the IRQ vector 
($01C0) is in the same page of memory 
as the stack. I have written BASIC 
algorithms of such complexity that the 
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Figure 3; BASIC Listing of Real Time Clock Program. 


2 REM REAL TIME CLOCK 


5 REM BY JIM MASON 


10 


FOR X = 2304 TO 2402 


20 


READ A 


30 


POKE X,A 


40 


NEXT X 


50 


POKE 448,76: POKE 449,2: POKE 450,9 


60 


POKE 11,0: POKE 12,9 


70 


FOR X = TO 32: PRINT : NEXT X 


80 


PRINT "ENTER TIME (24 HR. FORMAT)": PRINT 


90 


INPUT "HH,MM";HS,M$ 


100 


FOR X = TO 32: PRINT : NEXT X 


110 


POKE 54169,58: POKE 54166,58 


120 


Hl$ = LEFT$ (H$,1):H1 = ASC (Hl$): POKE 54164, HI 


130 


H2$ = RIGHTS (H$,1):H2 = ASC (H2$): POKE 54165, H2 


140 


MIS = LEFTS (MS,1):M1 = ASC (MIS): POKE 54167, Ml 


150 


M2S - RIGHTS (MS,1):M2 = ASC (M2S): POKE 54168, M2 


160 


POKE 54170,48: POKE 54171,48 


170 


X = USR (X) 


180 


END 


190 


DATA 88,96,72,138,72,152,72,169,58,162,54,160,48,238,155 


200 


DATA 211,205,155,211,208,72,140,155,211,238,154,211,236,154,211 


210 


DATA 208,61,140,154,211,238,152,211,205,152,211,208,50,140,152 


220 


DATA 211,238,151,211,2 36,151,211,208,39,140,151,211,238,149,211 


230 


DATA 162,52,236,149,211,240,13,205,149,211,208,21,140,149,211 


240 


DATA 238,148,211,16,13,162,50,2 36,148,211,208,2 36,140,149,211 


250 


DATA 140,148,211,104,168,104,170,104,64 



i 



stack wrote into $01 CO, resulting in a 
total system crash. Keep equations to a 
reasonable size or better yet, burn a 
new monitor ROM so that the IRQ vec- 
tor points directly to the RTC interrupt 
subroutine. I have used the second 
approach with great success. 

But on the good side, the time can 
be modified simply by POKEing the 
appropriate ASCII value into the proper 
video location. The time can be read by 
a BASIC program PEEKing the proper 
video locations. Cassette loads and 
saves are not affected since the inter- 
rupt subroutine is much shorter than 
one bit time at 300 baud. 

The machine language program is 
relocatable if you wish to move it to a 
higher memory location or bum it into 
a ROM and stick it in the upper 32K as I 
did. Just remember to adjust your IRQ 
and USR vectors. 

Editor's Note: On the AIM 65, the 
IRQ interrupt vector at $A400 can be 
used to point to a user routine like this 
clock. The corresponding vector on the 
new PET/CBM is at $0090, and on the 
old, $0219. 

James L. Mason is currently an Electronic 
Engineer employed by Gait Controls. At 
home, he is continually developing 
software and hardware for the Superboard 
II for application as a residential utility 
management system. 
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New Publications 

(Continued fiom page 39) 



Software 



Computer Language Reference Guide 
With Keyword Dictionary by 'Harry L. 
Helms, Jr. Howard W. Sams & Co., 
Inc. |4300 West 62nd Street, Indian- 
apolis, Indiana 46268], 1980, 110 
pages, 5-3/8 x 8V4 inches, paper- 
bound. 
ISBN: 0-672-21786-4 $6.95 

Rather than a fast guide to learning how 
to program in the various computer 
languages, this book is a "phrase 
book" for the "traveler" who is out- 
side the programming language he or 
she normally uses. The book assumes a 
working knowledge of one of the pro- 
gramming languages and familiarity 
with basic computer concepts. 

CONTENTS: ALGOL (9 pages); BASIC 
(15); COBOL |11); FORTRAN (13); LISP (6); 
Pascal (11); PL/1 (11); Keyword Dictionary 

(21). 



Software Vendor Directory by Micro- 
Serve, Inc. (250 Cedar Hill Avenue, 
Nyack, New York 10960), 1981, 196 
pages, 8 Vi x 11 inches in standard, 



hardcover, 3-ring binder. This directory 
of microcomputer software companies, 
now in its fourth edition, contains 950 
software vendors and 4,195 products 
indexed by 200 software and 80 hard- 
ware categories. The directory lists 
software vendors by name, address, and 
telephone number and by available 
software. For cross reference purposes, 
the editors have assigned each software 
and hardware vendor a number and 
each type of software a 3-letter code. 
The user of the directory can begin at 
either the chip or hardware level and 
quickly determine who produces ap- 
plicable hardware, operating systems, 
programming software, applications 
software, books, and periodicals. Or he 
can turn to the name of a software ven- 
dor and learn what type of software the 
vendor offers and how to reach the ven- 
dor. Products are only listed and 
categorized but not otherwise describ- 
ed. There are no advertisements. For 
descriptions and purchasing informa- 
tion, a user must call or write the ven- 
dor. The directory is updated twice a 
year (completely reprinted). By itself, it 
sells for $57.95. With one update, it 
costs $82.95 and with two, $100.00. 



1981 Software Writers Market: 1800 
places to sell your software by Kern 
Publications (190 Duck Hill Road, P.O. 
Box 1029, Duxbury, Massachusetts 
02332), 1981, iii, 180 pages, &Vi x 11 
inches, cardstock cover with plastic 
comb binding. 

$45.00 

This directory of firms which market 
and distribute software is designed for 
the independent software producer look- 
ing for a "publisher" or distributor. For 
each type of distributor, the editors 
provide information on how the 
distributor markets software, what 
kinds are wanted, and how the distrib- 
utor deals with independent software 
producers. Where available, royalty 
rates and contract details are listed. 
Names, addresses, and telephone 
numbers of key decision-makers are 
given for each distributor, except for 
the final lengthy section in which com- 
puter stores are listed by state. For 
these, only the business name and 
address is provided. 

CONTENTS: Service Bureaus (18 pages); 
Consulting Companies (16 pages); Hard- 
ware Manufacturers (34); Mail order Dis- 
tributors (24); Book Publishers (14); Com- 
puter Magazines (10); Computer Stores (62). 
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Dr. William R. Dial 
438 Roslyn Avenue 
Akron, Ohio 44320 

Did you ever wonder just what 
magazines are rich sources of informa- 
tion on the 6502 microprocessor, 
6502-based microcomputers, accessory 
hardware and software? For several 
years I have been assembling a 
bibliography of 6502 references related 
to hobby and small business systems. 
The accompanying list of magazines 
has been compiled from this biblio- 
graphy. An attempt has been made to 
give up-to-date addresses and subscrip- 
tion rates for the magazines cited. 
Subscription rates are for the U.S. Rates 
to other countries are normally higher. 

GENERAL 6502 

MICRO 

$18.00 per year, 12 issues 
P.O. Box 6502 
Chelmsford, MA 01824 

Compute! 

$20.00 per year, 12 issues 
P.O. Box 5406 
Greensboro, NC 27403 

6502 Users' Group Newsletter 

21, Argyll Ave. 

Luton, Bedfordshire, England 

GENERAL COMPUTER 

Byte 

$19.00 per year, 12 issues 
Byte Subscriptions 
P.O. Box 590 
Martinville, NJ 08836 

Computer Shopper 

$10 per year, 12 issues 
Glenn Patch, Editor 
P.O. Box F 
Titusville, FL 32780 

Computing Today 

£ 8.00, 12 issues 

Midmags Ltd. 

145 Charing Cross Road 

London WC2 0EE 

England 

Creative Computing 

$20.00 per year, 12 issues 
P.O. Box 789-M 
Morristown, NJ 07960 



CSRA Computer Club Newsletter 

$6.00 per year 
P.O. Box 284 
Augusta, GA 30903 

Dr. Dobb's Journal 

$21.00 per year, 12 issues 
People's Computer Co. 
P.O. Box E 
1263 El Camino Real 
Menlo Park, CA 94025 

GIGO Newsletter 

North London Hobby Computer Club 

Polytechnic of North London 

Holloway, London N78DB 

England 

Attn: Robin Bradbeer 

Interface Age 

$18.00 per year, 12 issues 
McPheters, Wolfe and Jones 
16704 Marquardt Ave. 
Cerritos, CA 90701 

KB Microcomputing 

$25.00 per year, 12 issues 
Wayne Green, Inc. 
80 Pine Street 
Peterborough, NH 03458 

Microcomputer Index 

$22.00 per year, quarterly 
Microcomputer Information Services 
2464 El Camino Real, Suite 247 
Santa Clara, CA 95051 

On Computing 

$8.50 per year,, quarterly 
P.O. Box 307 
Martinville, NJ 08836 

Personal Computer World 

£ 8.00, 12 issues 

Sportscene Publishers (PCW) Ltd. 

14 Rathbone Place 

London W1P IDE 

England 

Personal Computing 

$14.00 per year, 12 issues 
Hayden Publishing Co. 
50 Essex Street 
Rochelle Park, NJ 07662 

Popular Computing 

$16.00 per year, 12 issues 
P.O. Box 272 
Calabasas, CA 91302 

Practical Computing 

£ 6.00, 12 issues 

IPC, Electrical Electronic Press 

Dorset House, Stamford St. 

London SE1 9LH 

England 

Purser's Magazine 

$12.00 per year, 4 issues 
c/o Robert Purser 
P.O. Box 466 
El Dorado, CA 95623 



Recreational Computing 

$12.00 per year, 6 issues 
People's Computer Co. 
P.O. Box E 
1263 El Camino Real 
Menlo Park, CA 94025 

SoftSide 

$24.00 per year, 12 issues 
P.O. Box 68 
Milford, NH 03055 

Spreadsheet 

$15.00 per year 

Visigroup— Visicalc User Group 

P.O. Box 1010 

Scarsdale, NY 10583 

APPLE-RELATED 
PUBLICATIONS 

The Abacus II Newsletter 

$18.00 per year, 12 issues 
2850 Jennifer Drive 
Castro Valley, CA 94546 

Apple 

$2.00 per issue, quarterly 
Apple Computer Co. 
10260 Bandley Drive 
Cupertino, CA 95014 

Apple Assembly Line 

$12 per year, 12 issues 
c/o Bob Sander-Cederlof 
P.O. Box 5537 
Richardson, TX 75080 

Apple Barrel 

$18.00 per year (membership /subs, 
c/o Ed Seeger, Editor 
Houston Area Apple Users Group 
3609 Glenmeadow Dr. 
Rosenberg, TX 77471 

Apple Bits 

$15.00 per year 
$2.00 application fee 
NEO Apple Corps 
P.O. Box 39364 
Cleveland, Ohio 44139 

Apple-Can 

$20.00 per year, 6 issues 
Apple Users Group of Toronto 
P.O. Box 696, Station B 
Willowdale, Ontario M2K 2P9 
Canada 

Apple-Com-Post 

DM 50.- 

Apple User Group Europe 
Postfach 4068 
D-4320 Hattingen 
West Germany 
(Printed in German) 

Apple Cookbook 

$15.00 per year 
131 Highland Ave. 
Vacaville, CA 95688 

Apple-Dayton Newsletter 

$18.00 per year 
39 Mello Ave. 
Dayton, Ohio 45410 
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The Apple-Dillo 

$15.00 per year, 12 issues 
c/o Lenard Fein 
River City Apple Corps 
2015 Ford St. 
Austin, TX 78704 

Apple For The Teacher 

$12.00 per year, 6 issues 
5848 Riddio Street 
Citrus Hts., CA 95610 

AppleGram 

$12.00 per year, 12 issues 
The Apple Corps of Dallas 
P.O. Box 5537 
Richardson, TX 75080 

The Apple Orchard 

$10.00 per year, quarterly 
International Apple Core 
P.O. Box 2227 
Seattle, WA 98111 

Apple Peel 

$20.00 per year, 12 issues 
Chet Lambert, Editor 
Apple Corps of Birmingham 
1704 Sam Drive 
Birmingham, AL 35235 

Apple/Sass 

$12.00 per year, 12 issues 
Honolulu Apple User's Society 
P.O. Box 91 
Honolulu, HI 96810 

Applesauce 

$12.00 per year, 6 issues 
c/o Earl Rand, Editor 
Original Apple Corps 
Rolfe Hall 3303, UCLA 
Los Angeles, CA 90024 

AppleSeed Newsletter 

$15.00 per year, 12 issues 

P.O. Box 12455 

San Antonio, TX 78212 

The Apple Shoppe . 

$12.00 per year, 12 issues 
12804 Magnolia 
Chino, CA 91710 

Applications 

AUS $10 per year (plus $10 joining fee| 
Apple Users Group 
Box 3143, G.P.O. 
Sydney 2001, Australia 

ByteLines 

$12.00 per year, 12 issues 
Hi Desert Apple Computer Club 
P.O. Box 2702 
Lancaster, CA 93534 

Call — A.P.P.L.E. 

$15.00 per year, 12 issues 
$25.00 application fee 
304 Main Ave. S., Suite 300 
Renton, WA 98055 



The Cider Press 

$15.00 per year, 12 issues 
San Fransisco Apple Core 
1515 Sloot Blvd., Suite 2 
San Fransisco, Ca 94132 

The C.I.D.E.R. Press 

$10.00 per year 
Apple Computer Information 
and Data Exchange of Rochester 
369 Bray ton Road 
Rochester, NY 14616 

From The Core 

$12.00 per year, 12 issues 
Carolina Apple Core 
P.O. Box 31424 
Raleigh, NC 27622 

F.W.A.U.G. 

$15.00 per year, about 9 issues 

Lee Meador, Editor 

Fort Worth Area: Apple User Group 

1401 Hillcrest Drive 

Arlington, TX 76010 

The G.R.A.P.E. Vine 

$6.00 per year, 12 issues 
Group for Religious Apple 
Programming Exchange 
c/o Stephen Lawson 
P.O. Box 283 
Port Orchard, WA 98366 

The Harvest 

$12.00 per year, 10 issues 

N. W. Suburban Apple User Group 

1015 S. Ridge Rd. 

Arlington Heights, IL (50005 

L.A.U.G.H.S. 

$15.00 per year 
c/o Pat Connelly 
Louisville Apple User Group 
3127 Kayelawo Dr. 
Louisville, KY 40220 

The Michigan Apple-Gram 

$12.00 per year, 10 issues 
The Michigan Apple 
c/o Marty Burke, Editor 
P.O. Box 551 
Madison Heights, MI 48071 

Mini'App'Les Newsletter 

$10.00 per year 
Mini'App'Les Apple 
Computer User Group 
13516 Grand Avenue South 
Burnsville, MN 55337 

Neat Notes 

New England Apple Tree 
25 Emerson Street 
Medford, MA 02155 

Newsletter 

$10.00 per year 
Apple Bytes of Buffalo 
c/o Hank Kolk 
171 Tree Haven Road 
Buffalo, NY 14215 



Nibble 

$17.50 per year, 8 issues 
S.P.A.R.C. 
P.O. Box 325 
Lincoln, MA 01773 

OKC Apple Times 

$10.00 per year, 10-12 issues 
c/o Greenbriar Digital Resources 
P.O. Box 1857 
Edmond, OK 73034 

Peelings II 

$15.00 per year, 6 issues 
The Peelings Co. 
945 Brook Circle 
Las Cruces, NM 88001 

Poke-Apple 

$15.00 per year 

Apple-Siders 

5707 Chesapeake Way 

Fairfield, OH 45014 

Rubber Apple Newsletter 

$12.00 per year, 10 issues 
c/o Ken Gabelman 
849 Russel Ave. 
Akron, OH 44307 

The Seed 

$18.00 per year, 12 issues 
P.O. Box 17467 
Denver, CO 80217 

Softalk 

$10.00 per year, 12 issues 
Softalk Publishing, Inc. 
10432 Burbank Blvd. 
North Hollywood, CA 91601 

Southeastern Software Newsletter 

$10.00 per year, 10 issues 
c/o George McClelland, Editor 
6414 Derbyshire Drive 
New Orleans, LA 70126 

Stems From Apple 

$9.00 per year, 11 issues 
$2.00 application fee 
Apple Portland Program 
Library Exchange 
c/o Dick Stein 
P.O. Box 1608 
Beaverton, OR 97075 

T.A.R.T. 

$15.00 per year, quarterly 
The Apple Resource Team 
c/o Sid Koerin, Editor 
1706 Hanover Ave. 
Richmond, VA 23220 

Washington Apple Pi 

$18.00 per year, .12 issues 
P.O. Box 34511 
Washington, DC 20034 






No. 37 -June 1981 



MICRO - The 6502/6809 Journal 



103 



AIM-RELATED 

Interactive 

$5.00 for 6 issues 
Newsletter Editor 
Rockwell International 
P.O. Box 3669, RC55 
Anaheim, CA 92803 

The Target 

$6.00 per year, 6 issues 

Donald Clem, Editor 

RR#2 

Spencerville, OH 45887 



ATARI-RELATED 

A.N.A.L.O.G. Magazine 

$10.00 per year, 6 issues 
P.O. Box 23 
Worcester, MA 01603 

Atari Computer Enthusiasts 

$8.00 per year 
c/o M.R. Dunn 
3662 Vine Maple Dr. 
Eugene, OR 97405 

Purser's Atari Magazine 

(available thru dealers only, 2-3 issues 

per year) 

c/o Robert Purser 

P.O. Box 466 

El Dorado, CA 95623 

Iridis 

The Code Works 

Box 550, 5578 Hollister, Suite B 

Goleta, CA 93017 



OSI- RELATED 

OSIO Newsletter 

$15.00 per year 
9002 Dunloggin Road 
Ellicott City, MD 21043 

OSI Users Group 

c/o Richard Ellen 
12 Bennerley Rd. 
London SW11 
England 

OSI User's Independent Newsletter 

$10.00 per year, 6 issues 
c/o Charles Curley 
6061 Lime Ave. #2 
Long Beach, CA 90805 

Peek(65J 

$12.00 per year, 12 issues 

P.O. Box 347 

Owings Mills, MD 21117 



PET-RELATED 

Commodore PET User 
Group Newsletter 

$15.00 per year 

Commodore Business Machines, 

3330 Scott Blvd. 

Santa Clara, CA 95050 



Inc. 



Commodore PET Users Club 
Newsletter 

£ 10.00, 5-8 issues, £ 15.00 overseas 
Commodore ^Information Centre 
360 Euston Rd. 
London NW1 
England 

Nieuwegein PET Users Group 

Nijpelsplantsoen 252 

3431 SR Nieuwegein 

The Netherlands 

Attn: Hans Tammer or Louis Konings 

The Paper 

$15.00 per year, 10 issues 
Centerbrook Software Designs 
Long Island PET Society 
98 Emily Drive 
Centereach, NY 11720 

PET Benelux Exchange 

Copytronics 

Burg, Van Suchtelenstraat 46 

7413 XP Deventer 

The Netherlands 

Printout 

$36.00 (surface mail), 10 issues 
$45.00 (airmail) 
£ 9.50 (U.K.) 
P.O. Box 48 
Newbury RG 1 6 OBD 
Berkshire, U.K. 

The Transactor 

$15.00 (Canada) per year, (6-8 issues) 
Commodore Systems 
3370 Pharmacy Ave. 
Agincourt, Ontario M1W 2K4 
Canada 

SYM-RELATED 

Sym-Physis 

$10.00 per year, quarterly 
$13.50 per year, overseas 
Sym-1 Users' Group 
P.O. Box 315 
Chico, CA 95927 

NON-COMPUTER MAGAZINES 

EDN (Electronic Design News J 
$25.00 per year, 22 issues 
Cahners Publishing Co. 
270 St. Paul Street 
Denver, CO 80206 



* 



Popular Electronics 

$14.00 per year, 12 issues 

One Park Ave. 

New York, NY 10016 

QST 

$18.00 per year, 12 issues 
American Radio Relay League 
225 Main Street 
Newington, CT 06111 

Radio-Electronics 

$13.00 per year, 12 issues 
200 Park Ave., South 
New York, NY 10003 

73 Magazine 

$25.00 per year, 12 issues 
P.O. Box 931 
Farmingdale, NY 11737 



Yacht Racing Programs Wanted 

The United States Yacht Racing Union, 
the National Sports Authority for the 
racing sailor, has embarked on a pro- 
gram to develop a new Race Manage- 
ment Manual for use by race commit- 
tees everywhere. 

One section of the loose-leaf for- 
matted manual (or handbook) will be 
devoted to various computer and 
calculator programs and other such 
aids. 

Already we have received a few pro 
grams for computers such as one on the 
rules and several for scoring multi-class 
regattas, etc. 

We earnestly solicit any and all pro- 
grams readers might have developed 
relating to sailing, race scoring, handi- 
capping, measurement rules and the like. 

A library of such contributions is 
being maintained at the union's head- 
quarters and contributions should be 
sent there: USYRU, P.O. Box 209, 
Newport, Rhode Island 02840. 

The listing of the programs in 
the library will be included in the 
manual and its frequent up-dates, with 
appropriate credit to the authors and 
contributors. 

Any questions or comments should 
be sent to the attention of: 

Evans M. Harrell, Chairman 
USYRU Race Management Committee 
342 Sequoia Drive 
Marietta, Georgia 30060 
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Mike Rowe 
P.O. Box 6502 
Chelmsford, MA 01824 



Software Catalog: XXXVII 



Name: The Labors of Hercules 

System: SYM with BAS-1 or KIM 

8K BASIC at 2000 H. 
Memory: 16K 
Language: BASIC 
Hardware: Terminal using standard 

serial I/O ports on SYM 

or KIM 
Description: An adventure game in 
which you attempt the twelve labors of 
Hercules. Kill the Lernaean hydra, 
clean the Augean stables, and bring 
back the flesh-eating mare of 
Diomedes. Attempt these tasks and 
nine others just as Hercules did. You 
communicate with the computer using 
one and two word commands. 
Copies: Just released 

Price: $10.00 on cassette tape, 

ppd. in U.S. only. 
Author: Lee Chapel 

Available: Lee Associates 

2349 Wiggins Ave. 

Springfield, Illinois 62704 



Name: Wall Street 

System: OSI ClP/Super- 

board/C4P 
Memory: 8K RAM 
Language: Microsoft BASIC 
Hardware: OSI C1P/C4P 
Description: Game-type simulation for 
1 to 6 players. Each tries to make his 
fortune in the stock market. Includes 
gains, losses, stock splits, stock market 
crash, etc. Great for teaching stock 
market theory or for just plain fun. 
Copies: New 

Price: $9.95 cassette 300 or 600 

Baud 
Author: C. Powell m 

Available: Software Plus + 

1818 Ridge Avenue 

Florence, Alabama 35630 



Name: 

System: 
Memory: 

Language: 



Hardware: 



% 



ASTRO-SCOPE™: The 
Electronic Astrologer™ 

Apple n or TRS-80 
32K for screen version, 
48K for printout version. 
For Apple n, Applesoft in 
ROM with DOS 3.2. For 
TRS-80, Disk BASIC 2.3. 
For Apple II, 1 disk with 
screen version, 2 disks 
with printout version. 
For TRS-80, 2 disks with 
both versions. 



Description: Your complete birth chart 
read electronically by two well-known 
astrologers. Not a generalized reading 
of your sign, but the kind of horoscope 
a private astrologer would erect, based 
on your date, time and place of birth 
and computed to a precision within 
one-tenth of a degree or better. The 
planets, signs and houses of one par- 
ticular birth are analyzed in a text of 
1500 words or more, using the modern, 
psychological approach characteristic 
of the best in astrology today. 
Copies: As needed 

Price: Screen version $30.00. 

Printout version $200.00 
(includes license to re- 
produce textual material 
commercially) . 
Authors: Steve Blake and Rob 

Hand 
Available: AGS Software 
Box 28 

Orleans, Massachusetts 
02653 



Name: Pascal Level 1 

System: Apple II 

Memory: 48K and F.OM Applesoft 

(compiler); 8K min (run 

time) 
Language: Applesoft and machine 

language 
Hardware: Disk II 
Description: This Pascal system con- 
sists of a subset of the standard Pascal 
as defined by Jensen and Wirth. It in- 
cludes the structured programming 
features: IF-THEN-ELSE, REPEAT- 
UNTIL, FOR-TO/DOWNTO-DO, 
WHILE-DO, CASE-OF-ELSE, FUNC- 
TION and PROCEDURE. It also in- 
cludes the pseudo array MEM to allow 
memory PEEKs and POKEs. Now you 
can learn the language that is slated to 
become the successor to BASIC. Pascal 
Level 1 is a complete package that 
allows you to create, compile and ex- 
ecute programs written in Pascal. The 
source and object codes are auto- 
matically saved on diskette. Sample 
programs and a user's manual are 
included. 

Price: $35.00 on diskette 

Author: Hal Clark 

Available: On-Going Ideas 

RD #1, Box 810 

Starksboro, Vermont 

05487 



Name: 5 More Great Games! 

System: Apple II 
Memory: 48K 
Language: Applesoft, Machine 
Hardware: Apple II Plus, Disk II 
Description: Includes Turn 'em Loose!, 
Mystery Code, Depth Charge!, The 
Mine Fields of Normalcy, and Deep Sea 
Treasure. These are some of our newest 
and best games. Each one is great fun, 
Hi-Res. Best explosion sounds of any 
software in Applesoft. Machine 
language sound effects. There's enough 
action, suspense, and challenge to keep 
you going for months! 
Copies: Many 

Price: $29.95 (or $9.95 for any 

one of the above games). 

Includes game cards, 

disk, instructions. 
Available: Avant-Garde Creations 

P.O. Box 30161, 

Dept. MCC 

Eugene, Oregon 97403 

Name: Capital Assets Manage- 

ment System 

System: Apple II 

Memory: 48K 

Language: Applesoft 

Hardware: Disk II, printer of 

80-columns or greater 
Description: CAMS provides a simple 
and accurate means for the determina- 
tion of asset depreciation, investment 
credit and investment credit recapture 
amounts. User may select from 8 
depreciation methods and print detail- 
ed reports in either 80- or 132-column 
formats. Depreciation is performed on 
a date-to-date basis rather than just 
monthly. Investment credit/recapture 
is performed automatically by CAMS, 
scanning each file. User determined 
subtotaling is also supported, as are in- 
dividual reports. An advanced editor 
allows trial runs on depreciation 
methods. Changes to all fields are 
possible. CAMS records 23 pieces of in- 
formation on each asset, including GL 
account numbers and liberal notes. 
(CP/M version available soon.) 
Price: $99.50 [dealer inquiries 

invited) 
Author: Tracy Valleau 

Available: Innerface Business 

Systems 

P.O. Box 834 

Pacific Grove, California 

93950 
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Running Light Without Overbyte 



Twelve Times Per Year 



$21/1 Year- $39/2 Years 



Recent issues have included: 

7X65: Simulating a Micro 
EXOS-6500 Software Development Tool Kit 
6502 Assembler- Pet 8K-32K 
A Note on 6502 Indirect Addressing 
The C Programming Language 

What you see is what you get. 



To subscribe, send your name and address to Dr. Dobb's Journal, 
Department V4, Post Office Box E, Menlo Park, CA 94025. 

We'll bill you. 
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Mike Rowe 
P.O. Box 6502 
Chelmsford, MA 01824 



Hardware Catalog 



Name: PSSBC-A Power Supply 

System: Rockwell AIM 65 
Description: Designed to Rockwell's 
specifications for the AIM 65 single 
board computer, this unit supplies 5 
volts at 2 amps maximum, regulated, 
and 24 volts at .5 amps average (2.5 
amps maximum] unregulated. The 5 
volt output is short-circuit-proof and an 
overvoltage protection (crowbar) cir- 
cuit protects the circuitry of the attach- 
ed computer. The supply is enclosed in 
an attractive all metal case with 
switch, pilot light and fuse on the front 
panel. The cable from power supply to 
computer is supplied. 
Warranty: Against defects in 
materials and workman- 
ship for 90 days. 
Price: $64.95 plus shipping. 

VISA/MC accepted. 
Available: CompuTech 
Box 20054 
Riverside, California 
92516 
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Name: CD-23-4 OSI to SA4008 

Interface Board 

System: Ohio Scientific C3-C 

|CD-23 systems) 
Hardware: Hard Disk Controller to 

Hard Disk Interface 
Description: A hard disk interface 
board which allows users to interface 
from one to four Shugart SA4008 Hard 
Disks to one OSI Computer through 
the existing controller board. 
Price: $845.00 list 

Available: TEACO, Inc. 
P.O. Box E 
2117 Ohio Street 
Michigan City, IN 46360 

Name: MEM 4 and MEM 8 

Description: System Peripherals has 
recently announced their 4K and 8K 
static memory board for the AIM-65 
microcomputer. This is a low power 
memory board that is plug-compatible 
with the AIM-65 expansion connector 
and requires no mother board or other 
hardware. 
Price: $169.00 for MEM 8 (8KJ 

$109.00 for MEM 4 (4K) 

(Introductory prices.) 
Available: System Peripherals 

P.O. Box 971, Dept. M. 

Troy, Michigan, 48099 



Name: P.I.E.-C 

System: PET/CBM, all versions 

Description: The P.I.E.-C is a Parallel 
Interfacing Element between the 
IEEE-488 port of the PET/CBM com- 
puters and any parallel- input ASCII 
printers. The attractive custom 
enclosure and direct computer mount- 
ing will make your system look profes- 
sional rather than messy. Because the 
P.I.E.-C has parallel output with 2 
handshaking lines it is compatible with 
the Epson printers, NEC Spinwriter, 
IDS 'Paper Tigers', Anaclex printers, 
and of course all Centronics printers. 
There's no extra power supply because 
the + 5v is obtained directly from the 
printer. The P.I.E.-C can respond to 
any of the IEEE-488 primary addresses 
of the PET/CBM computer systems by 
simply setting the interfacing switches. 
The conversion of non-standard PET/ 
CBM codes to true ASCII codes is also 
switch selectable. The IEEE-488 port of 
the PET/CBM is extended using the 
same type card edge. This allows the 
cable that connects the floppy disks to 
the computer to be connected to the 
P.I.E.-C instead. 

Price: $119.95 fully assembled 

with case, code converter 
and 6' printer cable. 
Available: LemData Products 
P.O. Box 1080 
Columbia, Maryland 
21044 



Name: Micromodem Q 

System: Apple II 

Language: Apple BASIC and Apple 

Pascal 
Hardware: Low speed modem 
Description: Complete direct connect 
data communications system for Apple 
II and Bell & Howell computers. 
Features 110 and 300 baud, full or half 
duplex, with auto dial and auto answer 
capabilities. 
Price: $399.00 

Available: Hayes Microcomputer 

Products, Inc. 

5835A Peachtree Corners 
East 

Norcross, Georgia 30092 

(404) 449-8791 

(Contact address above 

for nearest retail dealer.) 



Name: VOLTECTORW Series 6 

Hardware: Same 

Description: A plug-in style transient, 

surge, and EMI protector. 

Price: $79.50 list 

Available: Pilgrim Electric Company 
29 Cain Drive 
Plainview, New York 
11803 

Name: Apple-Crate™ 

Hardware: Apple II & II Plus 
Description: The "Apple-Crate" is a 
quality desk-top rack designed to house 
Apple computer components. It's 
finished in Hawthorne walnut that is 
both scratch- and stain-resistant and 
looks like an expensive piece of 
furniture. 

Price: $59.95 

Available: Softsel 

4079 Glencoe Ave. 
Marina del Rey, 
California 90291 

Name: SPS 1-500-24 Standby 

Power Supply Unit 

Description: Self-contained, reliable 
power source for use in brownout or 
blackout. Plug-in unit attaches to 
regular power source and connected to 
device requiring protection. Unit 
generates a regulated quasi sine AC 
wave from sealed gelled electrolyte bat- 
tery in less than 25 milliseconds. 
Price: $650.00 

Available: Welco Industries, Inc. 
9027 Shell Road 
Cincinnati, Ohio 45236 

Name: 16 Channel, 12-bit, Data 

Logger Interface 

System: AIM 65 

Memory: 4K 

Language: BASIC 

Hardware: AIM 65 plus Columbus 

Instrument's Data Logger 

Interface. 
Description: Accurately keeps track of 
laboratory work in medical, industrial, 
and scientific fields without having to 
load programs from tape or disk. 
EPROM resident, auto-booting feature 
starting AIM as a data logger once the 
power is on. 
Available: Columbus Instruments 

Int. Corp. 

950 N. Hague 

Columbus, Ohio 43204 
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952. Apple/Sass 2, No. 9 (December, 1980) 

Misevic, Bruno V., "Dice Roll," pg. 9. 

A dice roll program for the Apple. 
Misevic, Bruno V., "Low Cost Telephone Dialer and 
Phone Book," pg. 11. 

Hardware and software for the Apple. 
Niimi, Dennis S., "Demuffin Corrected," pg. 14-16. 

Fixes for the Demuffin program to transfer DOS 3.3 

programs to DOS 3.2.1 format. 
Ward, Dennis, "Dennis Ward's Display," pg. 19. 

A special program for the Apple. 

953. The Transactor 2, No. 8 (January/February, 1980) 

Anon., "Re-Dimensioning Arrays," pg. 1-2. 

Tips on re-defining an array on the PET. 
Anon., "Bits and Pieces," pg. 2-4. 

Dynamic loading, cursor positioning, monitors, etc. for 

the PET. 
Anon., "POP a Return and Your Stack Will Feel Better," 
pg. 10-11. 

How to jump out of a routine on the PET. 
Anon., "Supermon 1.0," pg. 15-22. 

A machine language program in RAM which links itself 

to the built-in PET ROM monitor. 
Garbutt, W.T., "RS-232C: An Overview," pg. 23-28. 

All about RS-232 and the PET I/O ports. 
VanDuinen, T., "Program Plus," pg. 30-36. 

Managing programs and routines on the PET. 
Anon., "Relocate and Save," pg. 37. 

A short utility for the PET. 
Brown, B., "Routines for the PET," pg. 38-40. 

Several short programs and tips. 

954. The Transactor 2, No. 9 (March/ April, 1980) 

OEI, Robert, "LIST in Lower Case," pg. 1. 

Sequence to cause PET to list in lower case/upper case. 
Anon., "Printer Tabbing," pg. 3. 

Tabbing on the PET printer. 
Gardner, L.D., "More on Printer Output," pg. 3-5. 

A routine for using Centronics printers with the PET. 
Butterfield, Jim, "Input and Output from PET Machine 
Language," pg. 10. 

Utility hints for the PET. 
Maclean, Bill, "An Instring Utility for the 16/32K PET," 
pg. 11. 

A utility to change a substring within a main string. 
Butterfield, Jim, "PET as an IEEE-488 Logic Analyzer," 
pg- 12-13. 

Routine and technique to show the current status of 

four of the GPIB control lines plus a log of the last nine 

characters on the bus. 

Butterfield, Jim, "Cross-Reference," pg. 18-22. 
A program to do cross-referencing of a BASIC program, 
on the PET. 



Berezowski, David, "Better Auto Repeat," pg. 23. 

A repeat key program for the PET. 
Hook, David A., "The 'Unwedge' — A Tape APPEND and 
RENUMBER Program," pg. 24-38. 

A useful utility for the PET, in BASIC and machine 

code. 

Barnes, Paul, "Restore Data Line Program," pg. 39. 

This routine to restore the data line pointer of the PET 

at a line other than the first. 
Rossland, S. Donald, "Machine Language Case Con- 
verter," pg. 42-43. 

A PET machine language routine to convert strings to 

the correct upper/lower case condition for printing on 

CBM printers with the original ROM. 

955. The Transactor 2, No. 10 (May/June, 1980) 

Anon., "Remainder," pg. 1. 

A special case of the MID$ function on the PET. 
Troup, Henry, "Controlling Garbage Collections," pg. 4. 

How to force an early garbage collection, at the start of 

the input, on the PET. 
McDonald, John, "More on Screen Print," pg- 8. 

Stretch the 40-column PET screen to 80 columns on the 

printer. 
Troup, Henry, "True ASCII Output," pg. 9-11. | 

Basic and machine language routines for the PET. 
Hoogstraat, }., "PET 2040 Disk Buffer I/O Routine," 
pg. 12-28. 

Information on PET I/O procedures. 
Dean, Sheldon H., "PET to Heathkit H14 Printer Serial 
Interface," pg. 29-32. 

Hardware article on the PET interface. 
Troup, Henry, "Filestatus," pg. 33. 

A short routine to check the PET file status. 
Butterfield, Jim, "BASIC 4.0 Memory Map," pg. 34-41. 

Hex and decimal locations of PET functions in BASIC 

4.0. 

956. The Transactor 2, No. 11 (July/ August, 1980) 

Butterfield, Jim, "Text Editor," pg. 8-10. 

A simple line oriented editor for the PET. 
White, Don, "High Resolution Graphics for the PET," 
pg. 12-21. 

Adapting the "Visible Memory" to the PET. 
Hook, D., "Card Printing Utility," pg. 22-27. 

Utility for printing playing cards on the PET. 
Butterfield, Jim, "Simple 8010 Modem Program," 
pg. 28-29. 

A program to output the PET to an ASCII system. 

957. OSIO Newsletter 2, No. 2 (February, 1980) 

Wallis, T.L., "Memory Map of OS65U and Location of 
Various Parameters," pg. 3-8. , 

Hex and decimal locations of the Ohio Scientific \ 

OS65U. 
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958. OSIO Newsletter 2, No. 3 (March, 1980) 

Anon., "Some C1P Routines," pg. 1-2. 

Several subroutines for the C1P micro. 
Schwartz, Danny, "C1P Sketchpad," pg. 3. 

Drawing program for the C1P lets you see the video 

screen as a sketch pad. 

959. OSIO Newsletter 2, No. 4 (April, 1980) 

Boardman, J.B., "Serial Monitor ROM," pg. 4-6. 
The OSI 65A monitor at FE00 dissembled. 

960. OSIO Newsletter 2, No. 6 (June, 1980) 

Popenoe, Chuck, ' 'Message Center, ' ' pg. 4. 

A message program for using a C IP as a bulletin board. 
Anon., "Fitting a Format," pg. 5-7. 

Tips on writing formatting routines for OSI micros. 

961. OSIO Newsletter 2, No. 7 (July, 1980) 

Brounstein, Sid, "Challenger on the Phone," pg. 2-5. 
Telecommunications interface program for the OSI 550 
board. 

Mason, Jim, "Real Time Clock," pg. 6. 

A clock program using the OSI 600 board. 
Morgenstein, David, "PEEK(15908J," pg. 7. 

Tips for using OS-U and a line printer. 

962. OSIO Newsletter 2, No. 8 (August, 1980) 

Kirshner, Joe, "OS-65D Notes," pg. 1-2. 

A number of interesting uses for PEEK(64513). 
Morganstein, D., "Indirect ASCII Files," pg. 3-4. 

A tutorial for files on the OSI systems. 
Randal, John, "Program PRONLY," pg. 5-7. 

How to store programs efficiently on disks. 

963. OSIO Newsletter 2, No. 9 (September, 1980) 

Callaghan, Bill and Kupperian, Jim, "Modems," pg. 5-7. 
Hardware and software program for modem operation 
using the OSI, C1P or C2P. 

964. The Apple Orchard (Fall, 1980) 

Bishop, Bob, "Apple II Hi-Res Graphics: Resolving the 

Resolution Myth," pg. 7-10. 
Explaining some limitations of Apple high resolution 
graphics. 

Rowe, Pete, "The Mysterious Orange Vertical Line," 

pg. 11. 
The orange line at the left side of the Hi-Res Apple 
screen is explained. 

Spurlock, Loy, "Understanding Hi-Res Graphics," 

pg. 12-21. 
How to include text in your Hi-Res graphics program on 
the Apple. 

Crossley, Johm, "ASCII, EBCDIC, and the Apple," 

pg. 31. 
Selectively convert Apple's output to EBCDIC or con- 
vert incoming EBCDIC to ASCII with this routine. 

Anon . , " Yes ! There Is A Fix for APPEND inDOS3.2(and 

3.2.1]!", pg. 31. 
Fix up the APPEND routine on the Apple DOS with an 
End of File marker. 

Anon., "RFI: The F.C.C. and Your Apple," pg. 32-35. 
Tips on improving the suppression of spurious radia- 
tion from the Apple. 



Kellner, Jo, "Pascal Operand Formats; or, The Secret Life 
of a Variable," pg. 38-40. 

All about Pascal variables on the Apple. 
Anon., "Auto-Run Apple Without DOS," pg. 42-44. 

How to start up your non-disk Apple program without a 

disk. 

Crossley, John, "Initializing Apple Peripherals with 
POKES," pg. 43. 
Lists of the Apple POKES needed to initialize the 
memory locations used by various interfaces. 
Anon., "AppleWriter Modification for Lower Case 
Display," pg. 43. 
A software modification allowing AppleWriter to be 
used with the Paymar Lower Case Adapter. 
Budge, Joseph H., "Inside Initialization," pg. 49-52. 

A tutorial for the Apple user, relating to disk operation. 
Kamins, Scot, "Locksmythe and the Dedicated Program- 
mer, or — Writing User-Proof Interactive Code," 
pg. 54-58. 

Anon., "Linking Machine Language Routines to Apple- 
soft Programs," pg. 61. 
A technique showing how to hide a binary program that 
will follow the Applesoft listing but which will not 
appear in the listing. 
Silverman, Ken, "Don't Overload Your Apple n," 
pg. 67-69. 
Tabulation of the voltage and current requirements of 
various Apple interface cards and accessories. 

965. The Paper 3, Issue 6/7 (Fall, 1980) 

Breed, Alex, "PET's Not-So-Random RND," pg. 9. 
A discussion of problems involved in generating ran- 
dom numbers. 

Eisner, Gerry, "Meddling with Middle String," pg. 14-15. 
A tutorial on the MID$ function on the PET. 

Bromley, J.R., "A Better Screen Copy," pg. 16-17. 
A screen dump to printer program for the PET. 

Sherwood, D., "Cassette Survival Hints," pg. 18-19. 
Tips on using the PET cassette system including tape 
quality, tape storage, cassette heads and alignment, etc. 

Busdiecker, Roy, "Auto Repeat Keys, Version Two," 

pg. 22-23. 
Another program to provide repeat keys on the PET. 

966. Apple Bits 2, No. 8 (October, 1980) 

Chilton, Peter, "Pascal/Fortran," pg. 4. 
A brief comparison of Pascal, Applesoft and Z-80 
machines. 

Kovalik, Dan, "Taking the Mystery and Magic Out of 
Machine Language," pg. 5-6. 

A tutorial on Apple Hi-Res machine language. 
Koehler, John, "BASIC Basics," pg. 8. 

Program based on the implementation of Fisher's 

algorithm for the internal rate of return of an 

investment. 

967. Softside 3, No. 1 (October, 1980) 

Laurence, Matthew, "An Apple One Liner," pg. 4. 
A mini program for the Apple. 

968. Apple Assembly Line 1, Issue 1 (October, 1980) 

Sander-Cederlof, Bob, "Programming Notes," pg. 2-3. 
How to add and subtract one (incrementing and decre- 
menting) on the Apple. 
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Sander-Cederlof, Bob, "General Message Printing 
Subroutine," pg. 4-8. 

Formatting messages in assembly language on the 

Apple. 
Matzinger, Bob, "Using the Paymar Lower Case Adapter 
with S-C Assembler II Version 4.0," pg. 4. 

A machine language routine for the Apple. 

Sander-Cederlof, Bob, "Hardware in All 6502 Chips!", 
pg. 10-11. 
A bug in the 6502 and a suggested fix. 

969. The Apple Peel 2, No. 4 (April, 1980) 

Brown, Tom, "Disk File Hints," pg. 2. 
How your disk file program can determine whether 
file name already exists in the Apple disk. 

970. The Apple Peel 2, No. 5 (May, 1980) 

Selig, David, "Onerr Routines," pg. 5. 

A hint on using error routines on the Apple. 
Chipchase, Frank, "Better Use of Apple II Renumber and 
Merge Program," pg. 6. 

A short tutorial on these Apple routines. 

971. The Apple Peel 2, No. 7/8 (August, 1980) 

Hertzfield, Andy and Larsen, LeRoy, "Free Space For- 
malized," pg. 3. 

A basic program for utilizing the free space machine 

language routine for the Apple. 
Knaster, Scott, "Using the 'Old Monitor ROM' with the 
Language System," pg- 4. 

A procedure for enhancing the use of your language 

system. 
Anon., "APPEND Fix in DOS 3.2 and 3.2.1," pg. 6. 

How to patch up the missing end-of-file marker in the 

Apple disk operating system. 
Brown, Tom, "Fireworks," pg. 7. 

A Hi-Res graphics program for the Apple. 
Anon., "Soundex," pg. 9. 

A routine to use in search routines that will give 

approximate matches in place of requiring exact 

matches. 
Hyde, Bill, "Lo-Res Printout," pg. 10. 

A subroutine to print out the Apple Lo-Res screen in a 

primative fashion. 
Hartley, T., "Catalog Program," pg. 13. 

Routine to set up a catalog to hold 181 file names on the 

Apple disk. 
Buchler, Dan, "Justification Routine," pg. 13-14. 

Routine to right justify all output to the Apple screen. 

972-A. OSIO Newsletter 2, No. 10 (October, 1980) 

Kirshner, Joe, "OS-65D Notes," pg. 1-2. 
Change BEXEC on the OSI system to include a program 
list. 

Anon., "65412," pg. 2. 

How to use location 65412 in conjunction with the 

WAIT command on the OSI systems. 
Versace, Mike, "True C8P OS-U Backspace," pg. 3-4. 

A backspace working on both the Challenger HI and the 

C8P. 

Solntseff, Nicholas, "Right Justification Revisited," 
pg. 6-7. 
A right justification routine for OSI systems. 



972-B. OSIO Newsletter 2, No. 12 (December, 1980) 

Kirshner, Joe, "OS-65D Notes," pg. 3-5. 
A tutorial on sequential files for OSI systems. 

973. Rubber Apple Users Group 3, No. 7 (October/ 
November/December, 1980) 

Gabelman, Ken, "Disk Structures IV," pg. 1-9. 
More including a listing for "the Invisible Mailing 
List." 

974. Atari Computer Enthusiasts 1, Issue 2 (Fall, 1980) 

Goff, S., "Electronic Christmas Card," pg. 1. 

A graphics program for the Atari. 
Dunn, M.R., "Edit Subroutine," pg. 2-3. 

Copy and disk file edit for the Atari. 
Dunn, M.R., "Typewrite," pg. 3. 

Atari program to turn the computer into a typewriter. 
Dunn, M.R., "Disk Utilities," pg. 3. 

Two disk directory routines for the Atari, Disk Menu 

and Disk Directory Subroute. 
Dunn, M.R., "Speak Atari," pg. 6. 

Several uses of the Atari GOSUB function. 
Goff, Stacy, "Listen Atari," pg. 7. 

Connect your Atari to your stereo for fantastic sound. 

975. Appleseed Newsletter 2, No. 4 (October-December, 
1980) 

Wright, Don, "BASIC-RWTS Interface Bug Shot," pg. 7. 

Fixing the minor bugs in DOS 3 .3 regarding the IBSTAT 

parameter and the RWTS Link program, on the Apple. 
Connelly, Pat, "Lo-Res to Hi-Res," pg. 11-13. 

A graphics program for the Apple. 
Anon., "Hex to Decimal Conversion," pg. 14. 

A simple technique to use the Apple monitor for 

numbers conversions. 
Pump, Mark, "Apple II DOS Internals," pg. 14-19. 

Memory map and tutorial on the Apple DOS 3.2. 

976. Apple Bits 2, No. 9 (November, 1980) 

Kvalik, Dan, "Taking the Mystery and Magic Out of 
Machine Language," pg. 5-6. 

More about machine language and Hi-Res graphics with 

several listings for the Apple. 

Koehler, John, "BASIC Basics," pg. 7. 
Tips on the operation of floating-point BASIC. 

977. Softside 3, No. 2 (November, 1980) 

Pelczarski, Mark, "Apple Programming Notes, " pg. 8. 
Several hints for Apple users. 

Ward, Dennis, "One-Liner," pg. 19. 

A one line graphics routine for the Apple. 
Pelczarski, Mark, "Softside's Data Base: Part Three," 
pg. 30-31. 

Sorting routines, Apple and Atari. 
Bohlke, David, "Engineer," pg. 50-51. 

A game for the Atari. 
Hausman, Rob, "Keyboard Organ," pg. 62-63. 

A machine language routine for the Apple. 
Hays, Tim, "Trench," pg. 66-67. 

A game for the Atari. 
Truckenbrod, Joan, "Computer Aided Drawing an< 
Design: Rotation Techniques," pg. 74-75. 

A tutorial and program listing for Hi-Res Appl 

graphics. 
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INTRODUCING 

COGNIVOX Series VIO-1000 

A Revolutionary New 

Voice Input and Output Peripheral 



High Fidelity Voice Response 
Industrial Quality Recognition 

PET - AIM 65 - APPLE H 

COGNIVOX series VIO-1000 is a top-of-the-line voice I/O 
peripheral for business and educational applications and the 
demanding hobbyist. 

It can be trained to recognize words or short phrases drawn 
from a vocabulary of 32 entries chosen by the user. It will talk 
back with up to 32 words or short phrases. In disk based systems, 
response vocabularies can be stored on the disk and brought to 
memory as needed, giving an effectively unlimited number of 
vocabulary entries. The quality of voice response is excellent, 
and it is far superior to that of speech synthesizers. 

COGNIVOX series 1000 comes complete and ready to plug 
into your computer (the computer must have at least 16K of 
RAM). It connects to the parallel I/O port of the PET, to the game 
paddle connector on the Apple and to the J1 port on the AIM-65. 
Connectors are included as required. Also included are a 
microphone, cassette with software and extensive user manual. 
A built-in speaker/amplifier is provided as well as a jack for 
connecting an external speaker or amplifier. 

Software supplied with COGNIVOX includes two voice 
operated, talking video games, VOTH and VOICETRAP. These 
games are absolutely captivating to play, and the only voice 
operated talking games that are commercially available. 

Adding voice l/Oto your own programs is very simple. A single 
statement in BASIC is all that is required to say or to recognize a . 
word. Complete instructions on how to do it are provided in the 
manual. 

In keeping with the VOICETEK tradition of high performance at 
affordable price, we have priced COGNIVOX series 1 000 at the 
unbelievably low, introductory price of $249 (plus $5 shipping in 
the US, CA add 6% tax. Foreign orders welcome, add 10% for 
handling and shipping via AIR MAIL). When ordering, please give 
the make and model of your computer, the amount of RAM and 
whether you have disks or not. 

In addition to COGNIVOX series VIO-1000, VOICETEK 
manufactures a complete line of voice I/O peripherals for most 
of the popular personal computers. Speech recognition-only 
peripherals are available for the 8K PET and the 4K AIM. 

For more information call us at 805-685-1854 or write at the 
address below. 

Dealer Inquiries invited. 

%#rt I ^ ETE M De P* E > p '°- Box 38S 

w Wl WE I CIV Goleta, CA 93116 A 
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Webster, Ron, "Boing!", pg. 82-83. 
A graphics program for the Atari. 

978. The Apple Barrel 2, No. 8 (November, 1980) 

Kramer, Mike, "Name Swap Subroutine," pg. 5. 

Swap first and last names in your File Cabinet, for the 

Apple. 
Kramer, Mike, "Printer Activate/Deactivate Sub- 
routines," pg. 6. 

Tabbing past column 40 using certain interface bosirds 

and printers. 
Anon., "Apple/Pascal Library," pg. 10-11. 

Catalog of Apple/Pascal programs on several disk 

volumes. 
Meador, Lee, "DOS 3.2 Disassembly," pg. 14-20. 

Part five of this series is on the Apple Disk II controller. 

979. Apple Assembly Line 1, Issue 2 (November, 1980) 

Sander-Cederlof, Bob, "Variable Cross Reference for 
Applesoft Programs," pg. 2-8. 

A useful tool when you are writing large Applesoft 

programs. 
Sander-Cederlof, Bob, "Assembly Source on Text Files," 
pg. 9-14. 

A program to allow you to save a source program on a 

text file so that it can be used in another editor or 

assembler. 
Sander-Cederlof, Bob, "A Simulated Numeric 
Key-Board," pg. 15-16. 

A program to turn part of your Apple keyboard into a 

simulated numeric key-board. 

980. The Apple Peel 2, No. 11 (November, 1980) 

Anon., "Addresses in the Apple II DOS," pg. 3. 
Some key addresses in Apple DOS 3.1 and 3.2. 

Brown, Tom, "POKE Salad," pg. 7-8. 
Using Applesoft ROM routines. The Ampersand arid its 
use in calling up a number formatting code. 

981. Peelings II 1, No. 4 (November/December, 1980) 

Staff, "Software Reviews," 40 pgs. 
A review of a variety of Apple programs including a sec- 
tion which reviews and evaluates seven word pro- 
cessors for the Apple. 

982. Applesauce 2, No. 2 (November/December, 1980) 

Fisher, Bill, "Schematic for Apple Telephone Dialer," 

Pg-2- 

A schematic of hardware to use the I/O output port of 

the Apple as a telephone dialer. 
Ender, Philip B., "Recovering a Deleted Pascal File," 
pg. 4-5. 

A technique for recovering Pascal files like the Disk Zap 

or Lazarus utilities in BASIC. 
Ender, Philip B., "Double Density Disk Storage in 
Pascal," pg. 6. 

Double the data on a diskette by packing your Pascal 

variables or records. 
Rivas, Lou P., "Applewriter Patches to Support: 1) 
96-Character ASCII Input 2) Dan Paymar Lower Case 
-Mod," pg. 7-8. 

A mod for the Applewriter word processor. 

Amromin, Joel L., "Slowlist Patches," pg. 11. 
A modification to permit a slowlist routine to work on 
Applesoft listings. 



Anon., "Easy Hex to Decimal Conversion," pg. 11: 

A simple technique for number conversion using the 

Apple monitor resources. 
Campbell, Bill, "Catalog Utility," pg. 12-13. 

A quick disk-based Apple utility to provide convenient 

housekeeping on your disks. 
Stearns, Brian, "REM Remover," pg. 14-15. 

Make your Integer BASIC listings easier to read, for the 

Apple. 

Ras, Henry, "Disk Menu Program," pg. 17-20. 
Condense your Apple Disk Catalog by eliminating the 
sector count. 

983. Call — Apple 3, No. 9 (November/December, 1980) 

Golding, Val J., "Window on the World," pg. 7-9. 

A tutorial on the use of Text Screen Windows. 
Connelly, Pat, "Animation with Data Arrays," pg. 11-17. 

Create, compress and decompress Apple data array 

shapes. 

Lingwood, David A., "Overlaying in Applesoft," 

pg. 19-20. 
Too much code, too little space. Or, how to get a 20K 
program to run in 8K on the Apple. 

Rettke, Dick, "FNC, A Non-Flashing Cursor for Your 

Apple H," pg. 23-27. 
If the flashing cursor bothers you, cool it! 

Golding, Val J., "The Last Word in Hex Converters," 

pg. 32-33. 
Several number converters for the Apple. 

Billard, Stephen L., "DOS 3.3, the Language Card and the 

Apple II," pg. 37-38. 
Discussion of techniques to improve the utility of the 
multi- lingual Apple. 

Caloyannides, Michael A., "Fortran for the Apple Com- 
puter: Two Alternative Approaches," pg. 41-43. 
A discussion of implementing Fortran on the Apple. 

Huelsdonk, Bob, "Making BASIC Behave," pg. 43-47. 
A tutorial for the Apple, using a home inventory pro- 
gram example. 

Reynolds, Lee, "Applesoft Variable LIST Statement," 

pg. 58-59. 
A list utility for the Apple. 

Lee, Scott, "Muffin Catalog Supplement," pg. 62. 
A utility to increase the convenience of using the MUF- 
FIN program to convert disk files from DOS 3.2 to 3.3. 

Herzberg, Norman P., "OUTLINE: A Program to Print 

REMS," pg. 63-64. 
A short utility to list only the comments contained in a 
program. 

Sander-Cederlof, Bob, "A Problem with the VAL(A$) 

Function," pg. 65. 
A fix for a bug in the VAL function in Applesoft. 

984. The C.I.D.E.R Press (Rochester) 2, No. 6 (November/ 
December, 1980) 

Berube, Jim, "Disk Utilities for DOS 3.2 and 3.3," 
pg. 7-9. 

A series of routines for servicing the needs of Apple 

disks. 
Hall, John, "Locating Errors in Pascal Programs," 
pg- 15. 

A short tutorial for Pascal users. 
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GET MORE 
OUT OF 
YOUR APPLE 




MICRO/Apple 

Over 30 Apple Programs on Diskette — For 
Less Than $1.00 Apiece! No Need to Type 
In Hundreds of Lines of Code! 



224-page book and diskette 



$24.95" 



*lf ordered before July 15, MICRO pays 
shipping, Thereafter, add $2.00 for surface 
shipping. Massachusetts residents add 5% 
for sales tax. 



MICRO'S new book for Apple II users lets you 

■ Speed up programming in Applesoft and Integer BASIC! 

■ Add Apple II Plus editing features — at no cost! 

■ Round and format numbers accurately in business 
applications! 

■ Get lowercase letters and punctuation into Applesoft 
strings — at no cost! 

■ Do a shape table easily and correctly! 

■ Play the hit game "Spelunker"! 

■ And much, much more! 

With MICRO/Apple 1, the first volume in our 
new series, you receive 

■ 30 choice articles from MICRO (1977-80), complete with 
listings, all updated by the authors or MICRO staff, 

plus 

i 38 tested programs on diskette (13 sector, 3.2 DOS 
format, convertible to 3.3). 



Ask for MICRO/Apple at your computer store or 

ckll Toll-free 800-227-1617, Ext. 564 

In California, call 800-772-3545, Ext. 564 
VISA and Mastercard Accepted 

MICRO 

P.O. Box 6502 

Chelmsford, Massachusetts 01824 



And yet, it is perhaps the easiest-to-use 
modem ever. 

RS-232C Compatible. Smartmodem 
lets any RS-232C compatible computer 
or terminal communicate by phone with 
other computers and time-sharing sys- 
tems located anywhere in North America. 
You get full and half-duplex operation 
with both Touch-Tone" and pulse dialing. 

Auto-Answer/ Dial /Repeat. 
Smartmodem can answer the phone, dial 
a number, receive and transmit data, and 
then hang up the phone- automatically! 
If desired, Smartmodem will even repeat 
the last command. You can depend on 
Smartmodem for completely unattended 
operation. 

Completely Programmable. 
Smartmodem can be controlled using 




Microcomputer Component Systems 

any programming language. Over 30 dif- 
ferent commands can be written into your 
programs or entered directly from your 
keyboard. 

Smartmodem also includes sever- 
al switch-selectable features that let you 
tailor performance to your exact needs. 
You can "set it and forget it" for the ulti- 
mate in convenience. 

Built-in Audio Monitor. Thanks 
to an internal speaker, you can actually 
listen to your connection being made. 
You'll know immediately if the line is busy 
or if you reached a wrong number- 



and you don't even need a phone! 

Status at a Glance. Seven LED's 
indicate Smartmodem's current operating 
mode: auto-answer, carrier detect, off 
hook, receive data, send data, terminal 
ready and modem ready. You're never 
left in the dark 1 

Direct-Connect Design. 
Smartmodem is FCC registered for di- 
rect connection to any modular phone 
jack- there's no acoustic coupler to cause 
signal loss and distortion. 

Smartmodem, Smart Buy. Pro- 
fessional quality features. Versatile per- 
formance. A full two-year limited warranty. 
A suggested retail price of only S27P 

What more could you want? Per- 
haps the matching Hayes Stack Chrono- 
graph, an RS-232C compatible calendar 
clock system. 

Check out the Smartmodem wher- 
ever fine computer products are sold. 
And don't settle ff \ 
for anything less [II LJowA 
than Hayes. j I jriCiyC 



Smartmodem. 

The ultimate concept in modems 

is now a reality. 








Hayes M>f6com&yj£*1^Jtfctt ahtree Corners East, Norcross, Georgia 30092 (404) 449-8711 




tieU.SA. fW American Telephone and Telegraph :c, 1981 Hayes Micro. 
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